Hätte mich auch gewundert. Wenn Antivir Alarm schlägt, dann merkt man das in aller Regel.
Mein Code ist im Prinzip noch genau derselbe, den ich oben schon mal gepostet habe, nur diesmal mit mySite und myTitle als Variablen anstelle der direkten Angabe von Titel und Parameter, und der Delay-Wert nach Aufruf des Browsers ist größer. ProgramRunning hab ich noch nicht eingebaut. Das ist für das Problem zunächst auch nicht relevant.
Das probeweise eingebaute Fenster hatte ich wieder auskommentiert. Macht auch keinen Unterschied, wenn ein Fenster aufgeht.
Hier noch mal, wenn's hilft:
Code: Alles auswählen
; WLAN ausschalten
; Variablen
EnableExplicit
Define MySite.s = "-new-window http://speedport.ip/top_start_passwort.stm"
Define MyTitle.s = "Speedport W 504V Konfigurationsprogramm - Mozilla Firefox"
Procedure maus(x, y, aktion1, aktion2, v)
; manipuliert die Maus (aus Forum)
; x u. y sind Zielkoordinaten, die in Geschwindigkeit v erreicht werden. aktion1 steht für
; einen Mausklick links oder rechts,,
; aktion2 für das Maustaste-Loslassen links oder rechts
Define t
x=Abs(x)
y=Abs(y)
Protected a.l, b.l, sa.l, sb.l
t=0 ; Für weitere Verzögerung
Repeat
a=x-DesktopMouseX()
b=y-DesktopMouseY()
sa=1
sb=1
If a < 0
sa=-1
EndIf
If b < 0
sb=-1
EndIf
If DesktopMouseX() = x
sa=0
EndIf
If DesktopMouseY() = y
sb=0
EndIf
SetCursorPos_(DesktopMouseX()+sa, DesktopMouseY()+sb)
t=t+1 ; für Verzögerung hochzählen
If t=30 ; erst jetzt verzögern, weil sonst zu langsam; je höher t, desto schneller
Delay(Abs(v))
t=0
EndIf
Until DesktopMouseX() = x And DesktopMouseY() = y
If aktion1 <> 0 : mouse_event_(aktion1, x, y, 0, 0) : EndIf
If aktion2 <> 0 : mouse_event_(aktion2, x, y, 0, 0) : EndIf
BlockInput_(#False)
ProcedureReturn #True
EndProcedure
; If Not OpenWindow(0,0,0,200,150,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
; MessageRequester("Fehler!","Das Fenster konnte nicht geöffnet werden!")
; EndIf
Delay(2000)
;While WindowEvent()<>0 : Wend
; Router-Seite im Firefox öffnen
;RunProgram("Firefox.exe","-new-window http://speedport.ip/top_start_passwort.stm","C:\Program Files (x86)\Mozilla Firefox")
RunProgram("Firefox.exe",MySite,"")
; Fenster maximieren
Delay(3000)
ShowWindow_(FindWindow_(0,MyTitle),#SW_MAXIMIZE)
; Passwort-Eingabe anklicken
Delay(1000)
maus(250,270,0,0,10)
maus(DesktopMouseX(), DesktopMouseY(),#MOUSEEVENTF_LEFTDOWN,#MOUSEEVENTF_LEFTUP,0)
; Passwort eingeben
keybd_event_(#VK_x, #Null, #Null, #Null)
keybd_event_(#VK_x, #Null, #KEYEVENTF_KEYUP, #Null)
keybd_event_(#VK_x, #Null, #Null, #Null)
keybd_event_(#VK_x, #Null, #KEYEVENTF_KEYUP, #Null)
keybd_event_(#VK_x, #Null, #Null, #Null)
keybd_event_(#VK_x, #Null, #KEYEVENTF_KEYUP, #Null)
keybd_event_(#VK_x, #Null, #Null, #Null)
keybd_event_(#VK_x, #Null, #KEYEVENTF_KEYUP, #Null)
keybd_event_(#VK_x, #Null, #Null, #Null)
keybd_event_(#VK_x, #Null, #KEYEVENTF_KEYUP, #Null)
keybd_event_(#VK_x, #Null, #Null, #Null)
keybd_event_(#VK_x, #Null, #KEYEVENTF_KEYUP, #Null)
keybd_event_(#VK_x, #Null, #Null, #Null)
keybd_event_(#VK_x, #Null, #KEYEVENTF_KEYUP, #Null)
keybd_event_(#VK_x, #Null, #Null, #Null)
keybd_event_(#VK_x, #Null, #KEYEVENTF_KEYUP, #Null)
keybd_event_(#VK_RETURN, #Null, #Null, #Null)
keybd_event_(#VK_RETURN, #Null, #KEYEVENTF_KEYUP, #Null)
; Netzwerk aufrufen
Delay(1000)
maus( 40,370,0,0,10)
maus(DesktopMouseX(), DesktopMouseY(),#MOUSEEVENTF_LEFTDOWN,#MOUSEEVENTF_LEFTUP,0)
; WLAN aufrufen
Delay(800)
maus(240,355,0,0,10)
maus(DesktopMouseX(), DesktopMouseY(),#MOUSEEVENTF_LEFTDOWN,#MOUSEEVENTF_LEFTUP,0)
; WLAN einschalten
Delay(800)
maus(335,253,0,0,10)
maus(DesktopMouseX(), DesktopMouseY(),#MOUSEEVENTF_LEFTDOWN,#MOUSEEVENTF_LEFTUP,0)
; OK klicken
Delay(800)
maus(543,689,0,0,10)
maus(DesktopMouseX(), DesktopMouseY(),#MOUSEEVENTF_LEFTDOWN,#MOUSEEVENTF_LEFTUP,0)
; Browserfenster schließen
maus(GetSystemMetrics_(#SM_CXSCREEN)-35,10,0,0,10)
maus(DesktopMouseX(), DesktopMouseY(),#MOUSEEVENTF_LEFTDOWN,#MOUSEEVENTF_LEFTUP,0)
