Beiträge von FireFlyer

FireFlyer · 27. Dezember 2007

hab mir das ganze selbst inner funktion geschrieben xD

FireFlyer · 27. Dezember 2007

ja schon
aber welche Datei denn jetzt?

FireFlyer · 27. Dezember 2007

also wenns möglich ist gleich bei der eingabe kontrollieren, das ganze kann man ja in ne function reinhaun und die läuft dann halt inner schleife...

aber wie geht denn das jetzt mit der UDF scite kennt des ja net einfach reinschreiben und des geht dann oder wie? Achso waynes interessiert
hier mal mein Proggi:

Spoiler anzeigen

#include
#include
#include
#include

Global $record, $now, $fenstername
Global $server2, $serverpw2, $demoname2

;[Options]-----------------------------------------------------------------------------------------------
AutoItSetOption("TrayIconHide", 1)
AutoItSetOption("WinTitleMatchMode", 2)
Opt("GUIOnEventMode", 1)
;[Options]-----------------------------------------------------------------------------------------------

;[Create_GUI ($main)]-----------------------------------------------------------------------------------------------
$main = GUICreate( "Half-Live TV Client by FireFlyer", 450, 300, 100, 100)
GUICtrlCreateLabel( "This is a help to configure your HLTV Proxy", 10, 8, 300, 20)
GUICtrlCreateLabel( "You can get more help when you drive with your mouse over the text", 10, 25, 350, 20)
;[Create_GUI ($main)]-----------------------------------------------------------------------------------------------

;[Config_Read]-----------------------------------------------------------------------------------------------
$servercfg = FileReadLine( "connect.cfg", 1)
$pwcfg = FileReadLine( "connect.cfg", 2)
$demo = FileReadLine( "connect.cfg", 3)
$record2 = StringLeft( $demo, 6)
$servercfg2 = StringMid( $servercfg, 9)
$pwcfg2 = StringMid( $pwcfg, 16)
$demo2 = StringMid( $demo,
;[Config_Read]-----------------------------------------------------------------------------------------------

;[IP, PW, Name_Labels]-----------------------------------------------------------------------------------------------
GUICtrlCreateLabel( "Server IP:", 10, 53, 100, 20)
$server = GUICtrlCreateInput( $servercfg2, 120, 50, 150, 20)
GUICtrlCreateLabel( "(Example: 85.214.40.16:27100)", 275, 53, 200, 20)

GUICtrlCreateLabel( "Serverpassword:", 10, 83, 100, 20)
$serverpw = GUICtrlCreateInput( $pwcfg2, 120, 80, 150, 20)
GUICtrlCreateLabel( "(Example: Password)", 275, 83, 200, 20)

GUICtrlCreateLabel( "Demoname:", 10, 112, 100, 20)
$demoname = GUICtrlCreateInput( $demo2, 120, 110, 150, 20)
;GUICtrlCreateLabel( "(Example: Name)", 275, 112, 200, 20)
$record = GUICtrlCreateCheckbox( "Record Demo", 280, 112, 100, 20)

$heightctime = 142
GUICtrlCreateLabel( "Current Date/Time: ", 10, $heightctime, 100, 20)
$now2 = GUICtrlCreateLabel( $now, 120, $heightctime, 100, 20)
;[IP, PW, Name_Labels]-----------------------------------------------------------------------------------------------

;[START_TIME]-----------------------------------------------------------------------------------------------
GUICtrlCreateLabel( "Start-time for HLTV:", 10, 172, 100, 20)
$sleftdate = 119
$stopdate = 170
$sday2 = GUICtrlCreateInput( @MDAY, $sleftdate, $stopdate, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel( ".", $sleftdate + 22, $stopdate + 5, 5, 20)
$smonth2 = GUICtrlCreateInput( @MON, $sleftdate + 27, $stopdate, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel( ".", $sleftdate + 49, $stopdate + 5, 5, 20)
$syear2 = GUICtrlCreateInput( @YEAR, $sleftdate + 54, $stopdate, 32, 20, $ES_NUMBER)

$slefttime = 220
$stoptime = 170
$shour2 = GUICtrlCreateInput( @HOUR, $slefttime, $stoptime, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel( ":", $slefttime + 22, $stoptime + 2, 5, 20)
$smin2 = GUICtrlCreateInput( @MIN, $slefttime + 27, $stoptime, 20, 20, $ES_NUMBER)
$stimercheckbox2 = GUICtrlCreateCheckbox( "Use Timer", 280, 170, 70, 20)

GUICtrlSetLimit($sday2, 2)
GUICtrlSetLimit($smonth2, 2)
GUICtrlSetLimit($syear2, 4)
GUICtrlSetLimit($shour2, 2)
GUICtrlSetLimit($smin2, 2)
;[START_TIME]-----------------------------------------------------------------------------------------------

;[END_TIME]-----------------------------------------------------------------------------------------------
GUICtrlCreateLabel( "End-time for HLTV:", 10, 205, 100, 20)
$eleftdate = 119
$etopdate = 201
$eday2 = GUICtrlCreateInput( @MDAY, $eleftdate, $etopdate, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel( ".", $eleftdate + 22, $etopdate + 5, 5, 20)
$emonth2 = GUICtrlCreateInput( @MON, $eleftdate + 27, $etopdate, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel( ".", $eleftdate + 49, $etopdate + 5, 5, 20)
$eyear2 = GUICtrlCreateInput( @YEAR, $eleftdate + 54, $etopdate, 32, 20, $ES_NUMBER)

$elefttime = 220
$etoptime = 201
$ehour2 = GUICtrlCreateInput( @HOUR, $elefttime, $etoptime, 20, 20, $ES_NUMBER)
GUICtrlCreateLabel( ":", $elefttime + 22, $etoptime + 2, 5, 20)
$emin2 = GUICtrlCreateInput( @MIN, $elefttime + 27, $etoptime, 20, 20, $ES_NUMBER)
$etimercheckbox2 = GUICtrlCreateCheckbox( "Use Timer", 280, 201, 70, 20)

GUICtrlSetLimit($eday2, 2)
GUICtrlSetLimit($emonth2, 2)
GUICtrlSetLimit($eyear2, 4)
GUICtrlSetLimit($ehour2, 2)
GUICtrlSetLimit($emin2, 2)
;[END_TIME]-----------------------------------------------------------------------------------------------

;[Buttons]-----------------------------------------------------------------------------------------------
$heightbutton = 250
$start = GUICtrlCreateButton( "Start HLTV", 10, $heightbutton, 75, 25)
GUICtrlSetOnEvent($start, "start_hltv")

$end = GUICtrlCreateButton( "End HLTV", 90, $heightbutton, 75, 25)
GUICtrlSetOnEvent($end, "end_hltv")

$folder = GUICtrlCreateButton( "Demo-Folder", 170, $heightbutton, 75, 25)
GUICtrlSetOnEvent($folder, "Folder")

$options = GUICtrlCreateButton( "Advanced Options", 250, $heightbutton, 110, 25)
GUICtrlSetOnEvent($options, "Optionen_fenster")

$exit = GUICtrlCreateButton( "Exit", 365, $heightbutton, 75, 25)
GUICtrlSetOnEvent($exit, "GUI_Exit")
GUISetOnEvent($GUI_EVENT_CLOSE, "GUI_Exit")
;[Buttons]-----------------------------------------------------------------------------------------------

GUISetState(@SW_SHOW, $main)

;[GUI_Create ($options)]-----------------------------------------------------------------------------------------------
$optionen = GUICreate( "Half-Live TV Advanced Options by FireFlyer", 450,500,300,300)
;LABELS
GUICtrlCreateLabel( "Here you can modify the most important options", 10, 10, 300, 15)
GUICtrlCreateLabel( "\\Name-Settings", 10, 40, 100, 15)
GUICtrlCreateLabel( "Name", 10, 60, 100, 15)
GUICtrlCreateLabel( "Hostname", 10, 80, 100, 15)
GUICtrlCreateLabel( "\\Password-Settings", 10, 110, 100, 15)
GUICtrlCreateLabel( "Admin-Password", 10, 130, 100, 15)
GUICtrlCreateLabel( "Server-Password", 10, 150, 100, 15)
GUICtrlCreateLabel( "Proxy-Password", 10, 170, 100, 15)
GUICtrlCreateLabel( "Spectator-Password", 10, 190, 100, 15)
GUICtrlCreateLabel( "\\Connection-Settings", 10, 220, 100, 15)
GUICtrlCreateLabel( "Rate", 10, 240, 100, 15)
GUICtrlCreateLabel( "Updaterate", 10, 260, 100, 15)
GUICtrlCreateLabel( "MaxRate", 10, 280, 100, 15)
GUICtrlCreateLabel( "MaxLoss", 10, 300, 100, 15)
;INPUTS
GUISetState(@SW_HIDE, $optionen)
;[GUI_Create ($options)]-----------------------------------------------------------------------------------------------

Func start_hltv()
$fenstername = "HLTV - "&$server2
FileDelete( "connect.cfg" )
FileWriteLine ( "connect.cfg", "connect "&$server2)
FileWriteLine ( "connect.cfg", "serverpassword "&$serverpw2)
If GuiCtrlRead($record) = $GUI_CHECKED Then
FileWriteLine ( "connect.cfg", "record "&$demoname2)
EndIf
sleep(100)
If Not ProcessExists("hltv.exe") Then
run( "hltv.exe")
WinActivate( "HLTV - ")
sleep(1000)
WinActivate( "HLTV")
Send( "exec connect.cfg")
sleep(1000)
Send("{Enter}")
sleep(2000)
WinSetState("HLTV - ", "", @SW_MINIMIZE)
EndIf
EndFunc

Func end_hltv()
WinActivate("HLTV - ")
If WinActive ($fenstername) Or WinActive ("HLTV - offline") Then
Send( "exit")
sleep(300)
Send( "{ENTER}")
$etimercheckbox = GUICtrlRead( $etimercheckbox2)
If $etimercheckbox = $GUI_CHECKED Then
GUICtrlSetState($etimercheckbox2, $GUI_UNCHECKED)
EndIf
Else
MsgBox(0, "Error", "HLTV is not opened")
EndIf
EndFunc

Func Folder()
run( @Windowsdir&"\explorer.exe "&@WorkingDir&"\cstrike")
EndFunc

Func Optionen_fenster()
GUISetState(@SW_SHOW, $optionen)
GUISetOnEvent($GUI_EVENT_CLOSE, "Optionen_fenster_schliessen")
EndFunc

Func Optionen_fenster_schliessen()
GUISetState(@SW_HIDE, $optionen)
EndFunc

Func GUI_Exit()
If ProcessExists( "hltv.exe") Then
MsgBox(0, "Attention", "HLTV is already running!")
Else
Exit
EndIf
EndFunc

Func GetPos()
$a = GUIGetCursorInfo($main)
;_ArrayDisplay($a)
Select
Case not @error And $a[4] = "5" ;server IP
ToolTip("This is the IP where the HLTV Proxy will connect on")

Case not @error And $a[4] = "8" ;server PW
ToolTip("If the GameServer is password-protected type the password in here")

Case not @error And $a[4] = "11" ;DemoName
ToolTip("Demos will be saved with the NAME-YYMMDDhhmm-map.dem")

Case Else
ToolTip("")
EndSelect
EndFunc

Func GetTime()
$now = _Now()
ControlSetText( "", "", $now2, $now)
Sleep(500)
EndFunc

Func Demo_Checkbox()
$server2 = GUICtrlRead( $server, 1)
$serverpw2 = GUICtrlRead( $serverpw, 1)
$demoname2 = GUICtrlRead( $demoname, 1)
If $demoname2 = "" Then
GUICtrlSetState( $record, $GUI_UNCHECKED)
Else
GUICtrlSetState( $record, $GUI_CHECKED)
EndIf
EndFunc

Func stime()
$sday = GUICtrlRead( $sday2)
$smonth = GUICtrlRead( $smonth2)
$syear = GUICtrlRead( $syear2)
$shour = GUICtrlRead( $shour2)
$smin = GUICtrlRead( $smin2)
$stimercheckbox = GUICtrlRead( $stimercheckbox2)
If $stimercheckbox = $GUI_CHECKED Then
If $sday = @MDAY And $smonth = @MON And $syear = @YEAR And $shour = @HOUR And $smin = @MIN And @SEC = 00 Then
start_hltv()
EndIf
EndIf
EndFunc

Func etime()
$eday = GUICtrlRead( $eday2)
$emonth = GUICtrlRead( $emonth2)
$eyear = GUICtrlRead( $eyear2)
$ehour = GUICtrlRead( $ehour2)
$emin = GUICtrlRead( $emin2)
$etimercheckbox = GUICtrlRead( $etimercheckbox2)
If $etimercheckbox = $GUI_CHECKED Then
If $eday = @MDAY And $emonth = @MON And $eyear = @YEAR And $ehour = @HOUR And $emin = @MIN And @SEC = 00 Then
end_hltv()
EndIf
EndIf
EndFunc

While 1
GetPos()
GetTime()
Demo_Checkbox()
stime()
etime()
WEnd

</Date.au3></Array.au3></File.au3></GUIConstants.au3>

FireFlyer · 27. Dezember 2007

nice

aber du meinst bestimmt die Funktion GUICtrlSetLimit... aber wurscht auch die hab ich gefunden xD

Kann ich jetzt noch irgendwie definieren das man nur Zahlen von 01 - 31 z.B. beim Datum eingeben kann?

FireFlyer · 27. Dezember 2007

Also ich weiss ja auch nicht entweder bin ich zu doof zum suchen oder es hat einfach noch nie jemand gefragt...
Aber kann ich bei einem Input irgendwo ein Maximum an eingebbaren Zeichen machen also z.B. wenn man jetzt ein Input mit einer Jahreszahl macht dass man dann nur max 4 Zeichen und am besten sogar nur Zahlen eingeben kann

MFG FireFlyer

FireFlyer · 7. Dezember 2007

hiho ich hab mal wieder en komischen bug und zwar muss ich wenn man einmal auf advanced options klickt und dieses GUI wieder schließt alle anderen buttons im main_GUI mehrmals drücken bis was passiert...
2. wüsste ich noch gerne wie man eine File durchsucht also in irgendeiner zeile sollte stehen
exec connect.cfg
wenn das nicht dasteht soll er diese zeile reinschreiben wenn sie schon in der textdatei drinsteht soll er einfach garnix machen...
geht das über ne schleife indem ich quasi sage wenn line 1 <> exec connect.cfg nimm line 1 + 1 oder so, also halt einfach die nächste

Spoiler anzeigen

#include
#include
#include

;MsgBox(0, "BLA", @WorkingDir)
AutoItSetOption("WinTitleMatchMode", 2)
$main = GUICreate( "Half-Live TV Client by FireFlyer", 450, 225, 100, 100)
GUICtrlCreateLabel( "This is a help to configure your HLTV Proxy", 10, 8, 300, 20)
GUICtrlCreateLabel( "You can get more help when you drive with your mouse over the text", 10, 25, 350, 20)

Dim $record

$servercfg = FileReadLine( "connect.cfg", 1)
$pwcfg = FileReadLine( "connect.cfg", 2)
$demo = FileReadLine( "connect.cfg", 3)
$record2 = StringLeft( $demo, 6)
$servercfg2 = StringMid( $servercfg, 9)
$pwcfg2 = StringMid( $pwcfg, 16)
$demo2 = StringMid( $demo,

GUICtrlCreateLabel( "Server IP:", 10, 53, 100, 20)
$server = GUICtrlCreateInput( $servercfg2, 120, 50, 150, 20)
GUICtrlCreateLabel( "(Example: 85.214.40.16:27100)", 275, 53, 200, 20)

GUICtrlCreateLabel( "Serverpassword:", 10, 83, 100, 20)
$serverpw = GUICtrlCreateInput( $pwcfg2, 120, 80, 150, 20)
GUICtrlCreateLabel( "(Example: Password)", 275, 83, 200, 20)

GUICtrlCreateLabel( "Demoname:", 10, 112, 100, 20)
$demoname = GUICtrlCreateInput( $demo2, 120, 110, 150, 20)
;GUICtrlCreateLabel( "(Example: Name)", 275, 112, 200, 20)
$record = GUICtrlCreateCheckbox( "Record Demo", 280, 112, 100, 20)

$start = GUICtrlCreateButton( "Start HLTV", 10, 175, 75, 25)
$end = GUICtrlCreateButton( "End HLTV", 90, 175, 75, 25)
$folder = GUICtrlCreateButton( "Demo-Folder", 170, 175, 75, 25)
$options = GUICtrlCreateButton( "Advanced Options", 250, 175, 110, 25)
$exit = GUICtrlCreateButton( "Exit", 365, 175, 75, 25)
GUISetState(@SW_SHOW, $main)

$optionen = GUICreate( "Half-Live TV Advanced Options by FireFlyer", 450,500,300,300)
;LABELS
GUICtrlCreateLabel( "Here you can modify the most important options", 10, 10, 300, 15)
GUICtrlCreateLabel( "\\Name-Settings", 10, 40, 100, 15)
GUICtrlCreateLabel( "Name", 10, 60, 100, 15)
GUICtrlCreateLabel( "Hostname", 10, 80, 100, 15)
GUICtrlCreateLabel( "\\Password-Settings", 10, 110, 100, 15)
GUICtrlCreateLabel( "Admin-Password", 10, 130, 100, 15)
GUICtrlCreateLabel( "Server-Password", 10, 150, 100, 15)
GUICtrlCreateLabel( "Proxy-Password", 10, 170, 100, 15)
GUICtrlCreateLabel( "Spectator-Password", 10, 190, 100, 15)
GUICtrlCreateLabel( "\\Connection-Settings", 10, 220, 100, 15)
GUICtrlCreateLabel( "Rate", 10, 240, 100, 15)
GUICtrlCreateLabel( "Updaterate", 10, 260, 100, 15)
GUICtrlCreateLabel( "MaxRate", 10, 280, 100, 15)
GUICtrlCreateLabel( "MaxLoss", 10, 300, 100, 15)
;INPUTS
GUISetState(@SW_HIDE, $optionen)

Func GetPos()
$a = GUIGetCursorInfo($main)
;_ArrayDisplay($a)
Select
Case not @error And $a[4] = "5" ;server IP
ToolTip("This is the IP where the HLTV Proxy will connect on")
Case not @error And $a[4] = "8" ;server PW
ToolTip("If the GameServer is password-protected type the password in here")
Case not @error And $a[4] = "11" ;DemoName
ToolTip("Demos will be saved with the NAME-YYMMDDhhmm-map.dem")
Case Else
ToolTip("")
EndSelect
EndFunc ;==>GetPos

While 1
GetPos()
$server2 = GUICtrlRead( $server, 1)
$serverpw2 = GUICtrlRead( $serverpw, 1)
$demoname2 = GUICtrlRead( $demoname, 1)
If $demoname2 = "" Then
GUICtrlSetState( $record, $GUI_UNCHECKED)
Else
GUICtrlSetState( $record, $GUI_CHECKED)
EndIf

$msg1 = GUIGetMsg($main)
$msg2 = GUIGetMsg($optionen)
Select
Case $msg2 = $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
Case $msg1 = $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
Case $msg1 = $exit
Exit
Case $msg1 = $end
WinActivate("HLTV")
If WinActive ("HLTV") Then
Send( "exit")
sleep(300)
Send( "{ENTER}")
Else
MsgBox(0, "Error", "HLTV is not opened")
EndIf
Case $msg1 = $start
FileDelete( "connect.cfg" )
FileWriteLine ( "connect.cfg", "connect "&$server2)
FileWriteLine ( "connect.cfg", "serverpassword "&$serverpw2)
If GuiCtrlRead($record) = $GUI_CHECKED Then
FileWriteLine ( "connect.cfg", "record "&$demoname2)
Else
;NOTHING
EndIf
sleep(100)
run( "hltv.exe")
sleep(500)
Send( "exec connect.cfg")
sleep(500)
Send("{Enter}")
sleep(200)
WinSetState("HLTV", "", @SW_MINIMIZE)
Case $msg1 = $folder
run( @Windowsdir&"\explorer.exe "&@WorkingDir&"\cstrike")
Case $msg1 = $options
GUISetState(@SW_SHOW, $optionen)
EndSelect

WEnd

PS: falls da sonst noch sinnlose sachen von mir drin sind einfach mal sagen </Array.au3></File.au3></GUIConstants.au3>

THX & MFG Fire</Array.au3></File.au3></GUIConstants.au3></Array.au3></File.au3></GUIConstants.au3>

FireFlyer · 3. Dezember 2007

ohh ach lol ja natürlich die inputs ohhh man is halt schon lange her seitdem ich mit autoit was gemacht habe xD

@Mignon: also dieses kleine Progrämmchen soll Werte in eine Config schreiben (Advanced Options) diese Values will ich dort per tooltip erklären für was sie gut sind usw, im Hauptfenster gibt man die IP u. das PW vom GameServer ein und der HLTV Proxy connected dadrauf und man kann dann für CS 1.6 eine Demo machen :), diese werte muss man normalerweise in eine HlTV.cfg schreiben aber halt mit syntax usw... das macht dann mein prg von selbst

PHP

// HLTV Proxy configuration file


// HLTV proxy runs this file on start up
// This file should only be edited if you want to broadcast a game


// set HLTV proxy name as shown in score board
name "Public EnemY www.p-e-c.org"


// set HLTV name, how it should appear in game server browsers
// hostname 		"HLTV by Public EnemY www.p-e-c.org"


// set offline info text clients will see as reject reason if HLTV isn't broadcasting yet
offlinetext "Sorry, game is delayed. Please try again later."


// delays broadcasting for 30 seconds
delay 90.0


// allow 3.5 KByte/sec as client rate. This is good a value
// for internet broadcasts. On LAN you may set this value to 10000
maxrate 3500


// log HLTV console in proxy.log 
// logfile 1		


// local chatting for HLTV spectators enabled
chatmode 1


// if game server is password protected, enable this line
// serverpassword	"mypassword"


// proxy's adim password for rcon, commentator etc.
// adminpassword	"mypassword"


// show message for 5 seconds each 60 seconds in center of X axis (-1) and
// above help text bar (0.85). Color given as hexadecimal RGBA .
loopcmd 1 60 localmsg "Visit us: www.public-enemy-clan.de" 5 -1 0.85 FFA000FF


// hltv.tga will be shown instead of the default HLTV logo in spectator GUI
// bannerfile "hltv.tga"


// these commands will be executed on connecting spectator client and may be used
// to adjust settings for HLTV (for example voice parameters)
signoncommands "voice_scale 2; voice_overdrive 16; volume 0.5; echo Voice adjusted for HLTV"




echo hltv.cfg loaded.
exec ad.cfg

Alles anzeigen

das hier ist meine hltv.cfg da fehlt aber die hälfte an befehlen usw...

& THX AN EUCH!!!

FireFlyer · 3. Dezember 2007

Moin moin jaaa ich bins mal wieder xD

also ich habe folgendes problem:
Ich baue grade ein kleines Programm das nun endlich mal ein paar spielern den eintritt in eine relativ kompliziert aufgebaute Konsole (HLTV) erleichtern soll. Dabei habe ich nun einen sehr komischen bug bemerkt (forum und google gaben mir dazu keine hilfe)
und zwar:
Es öffnet sich ein GUI in dem sind 3 Labels in dem ersten ist schon der "blinkende Strich" (bereit zum schreiben ) was ja auch gut so ist nur ich kann die anderen labels mit der maus gar nicht anklicken sodass ich etwas reinschreiben könnte... allerdings kommt man mit TAB da rein

wäre schön wenn mir jemand helfen könnte

#include <GUIConstants.au3>

GUICreate( "HLTV Client by FireFlyer", 450, 200, 100, 100)
GUICtrlCreateLabel( "This is a help to configure your HLTV Proxy", 10, 15, 300, 20)

GUICtrlCreateLabel( "Server IP:", 10, 53, 200, 20)
$server = GUICtrlCreateInput( "", 120, 50, 150, 20)
GUICtrlCreateLabel( "(Example: 85.214.40.16:27100)", 275, 53, 200, 20)

GUICtrlCreateLabel( "Serverpassword:", 10, 83, 300, 20)
$serverpw = GUICtrlCreateInput( "", 120, 80, 150, 20)
GUICtrlCreateLabel( "(Example: Password)", 275, 83, 200, 20)

GUICtrlCreateLabel( "Demoname:", 10, 112, 300, 20)
$demoname = GUICtrlCreateInput( "", 120, 110, 150, 20)
GUICtrlCreateLabel( "(Example: Name)", 275, 112, 200, 20)

$start = GUICtrlCreateButton( "Start HLTV", 30, 150, 75, 25)
$end = GUICtrlCreateButton( "End HLTV", 120, 150, 75, 25)
$options = GUICtrlCreateButton( "Advanced Options", 210, 150, 110, 25)
$exit = GUICtrlCreateButton( "Exit", 335, 150, 75, 25)
GUISetState(@SW_SHOW)
While 1

$msg1 = GUIGetMsg()
Select
Case $msg1 = $GUI_EVENT_CLOSE
Exit
Case $msg1 = $exit
Exit
Case $msg1 = $start
FileDelete( "connect.cfg" )
$server2 = GUICtrlRead( $server, 1)
$serverpw2 = GUICtrlRead( $serverpw, 1)
$demoname2 = GUICtrlRead( $demoname, 1)
FileWriteLine ( "connect.cfg", "connect "&$server2)
FileWriteLine ( "connect.cfg", "serverpassword "&$serverpw2)
FileWriteLine ( "connect.cfg", "record "&$demoname2)
sleep(100)
run( "hltv.exe")
EndSelect

WEnd

achso das ganze ist noch in arbeit also nicht wundern über unbelegte buttons usw

FireFlyer · 23. August 2007

Schon mal damit Probiert?

#RequireAdmin
Parameters
None.
Remarks
This function was primarily aimed at allowing AutoIt scripts to work correctly with Windows Vista User Account Control (UAC) (However, will also work on Windows 2000 and Windows XP).
For more details see AutoIt on Windows Vista.
Related
None.
Example

#RequireAdmin
MsgBox(4096,"Info","Now running with admin rights")

FireFlyer · 22. August 2007

mhhkay also werde mir die tools mal anschauen
ansonsten weitercoden und mein ergebnis hier posten

THX @ll

FireFlyer · 22. August 2007

Moin, Moin
als ich gestern mal wieder Datensicherung gemacht habe (400GB :-/) hat es mich mal wieder genervt mit dieser Ersetzen meldung... da es natürlich viel schneller geht vorhandene !gleiche! Dateien nicht zu überschreiben habe ich mir Überlegt das ganze könnte ich doch mit autoit automatisieren... und schon trat das erste Problem auf....
Wie lese ich am besten den Text aus der meldung aus klar mit WinGetText aber wie weiter? meine Idee war diesen Text in eine Datei reinzuschreiben und dann per String auszulesen der Text der Datei sieht so aus: allerdings in einer linie und mit [] getrennt (anstatt einem Absatz wie hier).
&Ja
&Nein
Dieser Ordner enthält bereits eine Datei "TEST4.txt".
Möchten Sie die existierende Datei
0 Byte
geändert: Freitag, 10. August 2007, 10:01:13
mit dieser ersetzen?
0 Byte
geändert: Freitag, 10. August 2007, 10:01:13

Das Programm soll dann einfach die 0 Byte == 0 Byte vergeleichen und wenn gleich den button &nein drücken else &ja. Mein Problem ist eigentlich nur wie ich am besten diese Zahl auslese zum Vergleichen

Hoffe ihr habt irgend eine Lösung parrat; kann ja nich so schwer sein eigentlich

MFG Fire

FireFlyer · 20. August 2007

HÄÄÄ jetzt funzts gar net mehr du hast dein script wohl eher bugged als fixed oder ?
sogemol kann man die If abfrage nich auch mit selects und case machen? oder sowas? also
Select
bla
Case
ID: 1
öffne popup 1
Case
ID: 2
öffne popup 2

usw...

FireFlyer · 20. August 2007

hmm ok hab ich kapiert allerdings muss ich sagen das von ptb gefällt mir besser --> ist halt kürzer als deins für mich war eher das mit den arrays kompliziert
aber immerhin weist du dir schonmal bei solchen problemen zu helfen aber ich bin sicher dein script lässt sich auch wunderbar verwenden

THX & MFG Fire

FireFlyer · 20. August 2007

WOW...

DANKEEE ich werde die skripte ausprobieren und ggf. abändern
Ham wer schon wieder was gelernt

PS: Vllt wäre die Funktion MouseOver (ähnlich wie bei JavaScript oder so) eine gute Erweiterung für AutoIt v. 4? Vllt könnte das ja mal an die jemand weiterleiten

OK ... nochmal ne frage: es funktioniert zwar bestens nochmal vielen dank an peethebee & chrisatack & blubkuh
Aber wie funktioniert es?! Also wenn ich das richtig verstehe ist ein Array ein "Feld" auf dem Bildschirm funktioniert das im Endeffekt so dass ihr die Checkbox als Array definiert habt und per IF funktion getpos... also sobald die Maus in diesem Array ist das dann ein neues GUI öffnet???

MFG & THX Fire

FireFlyer · 17. August 2007

@thx
hmm was mir hier aber nicht so gefällt... kann man da auch einen bereich angeben?
weil ein Pixel oder was auch immer das ist genau zu treffen dürfte wohl schwieriger sein Ich habs auch mit dem hier versucht:

Example

#include <GUIConstants.au3>

GUICreate("put cursor over label", 300, 100)
GUICtrlCreateLabel("label",125,40)
GUICtrlSetCursor(-1, 4)GUISetState ()

While GUIGetMsg()<> $GUI_EVENT_CLOSE
WEnd
Exit

weil man da das ganze label definieren kann

und so einfach wie mit JavaScript scheints wohl nich zu gehn oder?:
http://www.homepage-total.de/javascript/mouseover.php#

MFG Fire

FireFlyer · 17. August 2007

hallo hab hier erneut eine Frage:

#include <GUIConstants.au3>
GUICreate("Settings", 350, 300, 100, 200)
GUICtrlCreateLabel( "Bitte wählen sie die Programme aus die sie installieren möchten", 10, 10, 300, 15)
GUICtrlCreateLabel( "und klicken sie anschließend auf Ändern und danach auf Exit", 10, 25, 300, 15)
$check1 = GUICtrlCreateCheckbox( "Scite", 10, 50)
$check2 = GUICtrlCreateCheckbox( "Nero", 10, 70)
$check3 = GUICtrlCreateCheckbox( "Office 2003", 10, 90)
$check4 = GUICtrlCreateCheckbox( "ZoneAlarm", 10, 110)
$check5 = GUICtrlCreateCheckbox( "Steam", 10, 130)
$check6 = GUICtrlCreateCheckbox( "IrfanView", 10, 150)
GUISetState(@SW_SHOW)
$exit = GUICtrlCreateButton( "Exit", 90, 250, 70, 30)
$change = GUICtrlCreateButton( "Ändern", 10, 250, 70, 30)
FileDelete( "C:\autoitinstallerfile1.txt")

Do

$msg = GUIGetMsg ()
If $msg = $exit or $msg = $change Then
FileDelete( "C:\autoitinstallerfile1.txt")
;----------------------------------------------------------------------
IF GUICtrlRead($check1) = $GUI_CHECKED Then
FileWriteLine( "C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine( "C:\autoitinstallerfile1.txt", "0")
EndiF
;----------------------------------------------------------------------
IF GUICtrlRead($check2) = $GUI_CHECKED Then
FileWriteLine( "C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine( "C:\autoitinstallerfile1.txt", "0")
EndiF
;----------------------------------------------------------------------
IF GUICtrlRead($check3) = $GUI_CHECKED Then
FileWriteLine( "C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine( "C:\autoitinstallerfile1.txt", "0")
EndiF
;----------------------------------------------------------------------
IF GUICtrlRead($check4) = $GUI_CHECKED Then
FileWriteLine( "C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine( "C:\autoitinstallerfile1.txt", "0")
EndiF
;----------------------------------------------------------------------
IF GUICtrlRead($check5) = $GUI_CHECKED Then
FileWriteLine( "C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine( "C:\autoitinstallerfile1.txt", "0")
EndiF
;----------------------------------------------------------------------
IF GUICtrlRead($check6) = $GUI_CHECKED Then
FileWriteLine( "C:\autoitinstallerfile1.txt", "1")
Else
FileWriteLine( "C:\autoitinstallerfile1.txt", "0")
EndiF
EndIf
Until $msg = $exit Or $msg = $GUI_EVENT_CLOSE
MsgBox( 0, "Achtung", "Die Änderungen wurden vorgenommen und gespeichert")
;run( "install2.exe)

und zwar hätte ich gerne das wenn man mit der mouse über die checkbox fährt ein neues GUI nur mit einem Bild popupt und sich wieder schließt sobald man mit der Maus wieder von der Checkbox weg ist der Thread von GTA-Spider zu diesem Thema habe ich nicht verstanden bzw. die gecodete lösung dazu
achso ja das fenster sollte so aussehen:

GUICreate( "Scite", 600, 600, 100, 100)
GUICtrlCreatePic( "C:\scite.jpg", 0, 0, 600, 600)
GUISetState(@SW_SHOW)

MFG Fire

FireFlyer · 15. August 2007

und ich war fest davon überzeugt das der Operator auch in While drinstecken muss nun ist alles geklärt

DANKE!!!!

MFG Fire

FireFlyer · 15. August 2007

@Paddy
für was steht denn die 1 nach while? expression ist 1???

ansonsten schonmal DANKE AN ALLE

MFG Fire

FireFlyer · 15. August 2007

Hi mal wieder superblöde sache wo ich hänge bestimmt is die lösung ganz einfach aber ich komm net wirklich drauf
Irgendwie klappt das bei mir nicht und zwar ich will: das er eine schleife macht in der er 2 variablen vergleicht wenn diese ungleich sind continue wenn nicht exit loop

Dim $pw1, $pw2
While ($pw1 <> $pw2)
$pw1 = InputBox( "Passwort", "PW1", "", "*")
$pw2 = InputBox( "Passwort2", "PW2", "", "*")
If ($pw1 <> $pw2) Then
MsgBox(0, "LOLOL", "ROFL")
ContinueLoop
EndIf
ExitLoop
WEnd

und er mag weder While not var1==var2 weder While var1<>var2
muss ich das per string machen?

MFG FireFlyer

FireFlyer · 15. August 2007

Hallo erstmal
ähhm ja was soll ich sagen, ich bin 18 jahre alt mache jetzt dann mein ABI werde danach wahrscheinlich was naturwissenschaftliches studieren vllt aber auch IT. Bis jetzt habe ich erfahrung mit der normalen Windowsoberfläche, Excel (mit makros), word usw... oder besser gesagt es reicht um mein Dorf (Hilzingen) mit Lösungen zu PC Problemen zu versorgen ) Tjo im moment mache ich Ferienjob in einem GrossUnternehmen (Alcan) und da wurde ich gefragt ob ich einen Ablauf automatisieren könne, tjo so hab ich AutoIt entdeckt und finde es echt super Hab davor "nur" erfahrung mit HTML/JavaScript/PHP (was ja im grunde das selbe ist ) und mit Batch programmieren bzw coden gemacht. Freue mich hier sehr auf die Community und hoffe das ich noch viele Stunden AutoIt coden kann

MFG FireFlyer

Beiträge von FireFlyer

GUI Input Zeichen maximum setzen

GUI Input Zeichen maximum setzen

GUI Input Zeichen maximum setzen

GUI Input Zeichen maximum setzen

GUI Input Zeichen maximum setzen

Button muss mehrmal angeklickt werden bis aktion

GUI Labels sind nicht anklickbar :(

GUI Labels sind nicht anklickbar :(

IP Adresse auslesen bei System mit mehr aks 5 Adaptern

Ersetzen

Ersetzen

MouseOver

MouseOver

MouseOver

MouseOver

MouseOver

ganz doofe frage.. operator mit while

ganz doofe frage.. operator mit while

ganz doofe frage.. operator mit while

huhu