Netz-Treff

Nachricht aus dem Archiv

effeff schrieb am 26.June.2009, 12:31:13 in der Kategorie pc.coding

Ohoh, du hast ja VBA und nicht VB6...

Unter Excel gibt es kein hwnd, weswegen du das durch eine 0 oder ersetzen solltest.

Bei dir muss es dann so aussehen:


Option Explicit

Private Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub RipeIt()

Dim Inhalt As String
Dim DeineDomain As String
Dim Ausgabedatei As String
Dim ff As Integer
Dim Programm As String
Dim Batch As String

Programm = \"d:\\whois\\whois.exe\"
Batch = \"d:\\whois\\suchen.bat\"
DeineDomain = \"66.193.254.46\"
Ausgabedatei = \"d:\\whois\\ergebnis.txt\"

Inhalt = Programm & \" \" & DeineDomain & \" > \" & Ausgabedatei

ff = FreeFile

Open Batch For Output As ff
Print #ff, Inhalt
Close ff

ShellExecute 0, vbNullString, Batch, vbNullString, \"C:\\\", SW_SHOWNORMAL

End Sub

automatisierte whois-Abfragen VBA Alfons - 25.June.2009, 12:25:43 - (pc.coding)
- automatisierte whois-Abfragen VBA glitzi - 25.June.2009, 18:45:53
  - automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 08:30:10
    - automatisierte whois-Abfragen VBA effeff - 26.June.2009, 09:27:01
      - automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 09:53:45
        automatisierte whois-Abfragen VBA glitzi - 26.June.2009, 10:35:45
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 10:46:15
        automatisierte whois-Abfragen VBA effeff - 26.June.2009, 10:53:33
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 11:16:59
        Ohoh, du hast ja VBA und nicht VB6... effeff - 26.June.2009, 12:31:13
        Ohoh, du hast ja VBA und nicht VB6... Alfons - 26.June.2009, 13:19:54
        Ohoh, du hast ja VBA und nicht VB6... effeff - 26.June.2009, 14:51:25
        Ohoh, es FUNKTIONIERT!!! Alfons - 26.June.2009, 15:50:47
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 11:40:29
        automatisierte whois-Abfragen VBA effeff - 26.June.2009, 12:33:34
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 12:41:52
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 11:44:30
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 12:24:11
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 13:22:01
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 13:35:35
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 14:05:56
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 14:48:34
        automatisierte whois-Abfragen VBA Alfons - 26.June.2009, 15:10:35
        automatisierte whois-Abfragen VBA Jörg Lorenz - 26.June.2009, 15:32:38
        automatisierte whois-Abfragen VBA effeff - 26.June.2009, 16:00:13