25. januar 2006 - 19:22Der er
11 kommentarer og 1 løsning
cs kontrol
jeg har læst lidt af bogen Start på Visual Basic 6.0 men er ikke nådet så lagt.. nu vil jeg lave en cs kontrol vindue men kanpper til en kammrat så han ikke sakl bruger bat filer. og jeg kan kun lidt Visual Basic. så er der ikke en der vil have nogle point for at hjælpe mig
jeg har lavet mit vindue og lavet en knap "start Cs server" så når jeg trykker på kanppen sakl der ske følgen den skal gå i mappen cd CounterStrikeDedicatedServer og i mappen cd SCR og start en program op putty.exe -l root -pw war 192.168.0.239 -m CSDSStart.scr
Programmet putty.exe ligger i mppen SCR sammen med filen CSDSStart.scr
i linen putty.exe -l root -pw war 192.168.0.239 -m CSDSStart.scr kør vi kommando putty.exe den loggind på bruger root "-l roor" med med password "-pw war" på ip 192.168.0.239 og kør de komandoer der er i filen CSDSStart.scr "-m CSDSStart.scr"
jeg håber en kan vise mig koder til den knap der skal skrives.
jeg har prøver med uden held men hey jeg er nOOb
Private Sub Command1_Click() cd CounterStrikeDedicatedServer cd SCR open "putty.exe -l root -pw w0a0r0 192.168.0.239 -m CSDSStart.scr" End Sub
jeg takke hvis du vil forsætte på at svar efter dette spøsmål hvis jeg skulle have flere spøsmål vi finder ud af en vis der skal fler point til
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
Private Sub Execute(strFile As String, strParam As String) ShellExecute Me.hwnd, vbNullString, strFile, strParam, vbNullString, vbNormalFocus End Sub
Private Sub Form_Load() Call Execute("C:\bla\bla\putty.exe", "-l root -pw w0a0r0 192.168.0.239 -m CSDSStart.scr") End Sub ' ------------ Form1 ------------
jeg jeg dobble klikker på min kanp har sat Call Execute cmd ind så det ser sån ud:
Private Sub Command1_Click() Call Execute("C:\Cs Kontrol\CounterStrikeDedicatedServer\SCR\putty.exe", "-l root -pw w0a0r0 192.168.0.239 -m CSDSStart.scr") End Sub
men den skriver: Compile error: Sub or Function not defined
så tykker jeg ok og den maker Private Sub Command1_Click() med gul
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
Private Sub Execute(strFile As String, strParam As String) ShellExecute Me.hwnd, vbNullString, strFile, strParam, vbNullString, vbNormalFocus End Sub
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
Private Sub Execute(strFile As String, strParam As String) ShellExecute Me.hwnd, vbNullString, strFile, strParam, vbNullString, vbNormalFocus End Sub
Private Sub Command1_Click() Call Execute("C:\Cs Kontrol\CounterStrikeDedicatedServer\SCR\putty.exe", "-l root -pw w0a0r0 192.168.0.239 -m CSDSStart.scr") End Sub ' ------------ Form1 ------------
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
