2Programme starten

Für allgemeine Fragen zur Programmierung mit PureBasic.
hergis
Beiträge: 1
Registriert: 20.06.2011 19:55

2Programme starten

Beitrag von hergis »

Hallo,
hoffentlich habe ich die richtige Kategorie gewählt.
Habe schon divers gesucht und nur teilweise passendes oder funktionierendes zusammengepriemt:
@echo OFF

start C:\Program Files\XSManager\XSManager.exe /W

@ping -n 3 -w 10000 192.168.1.1
rem oder aber
rem @ping -n 3 -w 30 localhost> nul

start C:\Progra~1\intern~1\iexplore.exe





rem "ping -n 3 -w 10000 192.168.1.1" eingibt, wartet Windows 3 mal maximal 10 Sekunden (10000 ms), wenn der Rechner offline ist, aber nur 3 mal 1 Sekunde, wenn er online ist. Als IP-Adresse nimmt man am besten den DNS-Server,der bei ipconfig/all

Bitte um Hilfe:
Es geht im Groben darum, der UMTS-Verbindungsmanager (XSManager) soll starten, folgend soll auf seiner Oberfläche die OK- oder die
VERBINDEN -Taste automatisch gedrückt werden und erst wenn die UMTS-Verbindung steht der Browser gestartet werden.
MfG Hergis
kevv
Beiträge: 31
Registriert: 28.11.2010 15:52

Re: 2Programme starten

Beitrag von kevv »

Hmm so vielleicht

Code: Alles auswählen

RunProgram("C:\Program Files\XSManager\XSManager.exe", "/W","")
Delay(1000)
SetCursorPos_(966, 378)  ; Cursor auf VERBINDEN -Taste setzen
Delay(1000)
Mouseklickleft()         ; anklicken
Delay(3000)

RunProgram("C:\Program Files\Internet Explorer\iexplore.exe", "www.purebasic.fr/german/viewtopic.php?f=3&t=24468","")

Hiermit kannst du schnell die richtige Mausposition rausfinden!

Code: Alles auswählen

Procedure Thread(dummy)
  Repeat
    GetCursorPos_(Coords.POINT)
    SetGadgetText(1,"Mausposition: x="+Str(Coords\x)+" y="+Str(Coords\y))
    Delay(10)
  ForEver
EndProcedure

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  TextGadget(1,10,10,200,20,"",0)
  
  CreateThread(@Thread(),0)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Antworten