Beiträge von FireFlyer

FireFlyer

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

$file = InetGetSize("http://keineahnung.de/test.exe")
If $file > 0 Then
_1 ()
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _1 ()
$IpRead = FileReadLine("Launcher.txt", 6)
If FileExists("C:\UpdateVersion.txt") Then
_Funce ()
Else
FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
Sleep(1000)
_Funce ()
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Funce ()
$Ip2 = ($IpRead)
$ver = FileRead("C:\UpdateVersion.txt")
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
$file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
$line = FileRead($file)
If $line = $ver Then
FileClose($file)
Else
FileClose($file)
Sleep(500)
FileDelete("C:\UpdateVersion.txt")
Sleep(1000)
FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
ProgressOn("Checking Resource", "Checking Resource")
Sleep(1000)
ProgressSet(20, "Checking Resource", "20 %")
Sleep(1000)
ProgressSet(50, "Checking Resource", "50 %")
Sleep(1000)
ProgressSet(100, "Checking Resource", "100 %")
Sleep(500)
ProgressOff()
_Func ()
EndIf
EndFunc
Func _Func ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip = ($IpRead)
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Updating KalOnline", "KalOnline-Update in Progress", "Update")
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(0,"0%")
Local $der
$der = FileReadLine("file.txt", 1)
for $i = 1 to $der
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
If $i = 1 Then ProgressSet(5,"5 %")
If $i = $der/10 Then ProgressSet(10,"10 %")
If $i = $der/8 Then ProgressSet(40,"40 %")
If $i = $der/6 Then ProgressSet(50,"50 %")
If $i = $der/5 Then ProgressSet(60,"60 %")
If $i = $der/4 Then ProgressSet(70,"70 %")
If $i = $der/3 Then ProgressSet(80,"80 %")
If $i = $der/2 Then ProgressSet(90,"90 %")
If $i = $der Then ProgressSet(95,"95 %")
Next
ProgressSet(100,"100 %")
Sleep(200)
ProgressOff()
FileClose(@ScriptDir &"UpdInf.txt")
FileClose(@ScriptDir &"UpdInf2.txt")
FileClose(@ScriptDir &"file.list")
FileClose(@ScriptDir &"file.txt")
FileDelete(@ScriptDir &"UpdInf.txt")
FileDelete(@ScriptDir &"UpdInf2.txt")
FileDelete(@ScriptDir &"file.list")
FileDelete(@ScriptDir &"file.txt")
MsgBox(0,"Updates", "All Updates Finished", 1)
MsgBox(0,"Updates", "All Updates Finished", 1)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

FileInstall("Launcherback.jpg",@TempDir & "\Launcherback.jpg"); ab hier solls weitergehen wenn sie nicht existiert
$HTT = FileReadLine("Launcher.txt",4)
$Lname = FileReadLine("Launcher.txt",2)
$LaName = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")$Form1 = GUICreate($Lname, 297, 400, -1, -1, $ws_popup)
$Pic1 = GUICtrlCreatePic(@TempDir & "\Launcherback.jpg", 0, 0, 297, 400, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$Close = GUICtrlCreateButton("X", 282, 0, 16, 16, 0)
$Start = GUICtrlCreateButton("Start Game", 8, 376, 70, 20, 0)
$Set = GUICtrlCreateButton("Settings", 112, 376, 70, 20, 0)
$WEB = GUICtrlCreateButton("Website", 216, 376, 70, 20, 0)
$Edit1 = GUICtrlCreateEdit("", 0, 264, 297, 105)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetData(-1, $notice)
$Label1 = GUICtrlCreateLabel($LaName &" Launcher", 80, 0, 145, 17)
GUICtrlSetFont(-1, 10, 800, 2, "Narkisim")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Close
_Close ()
Case $Start
_Start ()
Case $WEB
_WEB ()
Case $Set
_Set ()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Start ()
ShellExecute("engine.exe","/load /config debug")
Endfunc

[/autoit] [autoit][/autoit] [autoit]

Func _WEB ()
ShellExecute($HTT)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Set ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Close ()
Exit
Endfunc

[/autoit]

So? Bzw: zur besseren übersicht sollte man Funktionen vom rest trennnen

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <TabConstants.au3>
#include <EditConstants.au3>
#include <DateTimeConstants.au3>
#include <SliderConstants.au3>
#include <TreeViewConstants.au3>
#include <ProgressConstants.au3>
#include <AVIConstants.au3>
#include <UpDownConstants.au3>
#include<Array.au3>
#include<File.au3>
#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

$file = InetGetSize("http://keineahnung.de/test.exe")
If $file > 0 Then
_1 ()
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

FileInstall("Launcherback.jpg",@TempDir & "\Launcherback.jpg"); ab hier solls weitergehen wenn sie nicht existiert
$HTT = FileReadLine("Launcher.txt",4)
$Lname = FileReadLine("Launcher.txt",2)
$LaName = FileReadLine("Launcher.txt",2)
$notice = FileRead("notice.txt")$Form1 = GUICreate($Lname, 297, 400, -1, -1, $ws_popup)
$Pic1 = GUICtrlCreatePic(@TempDir & "\Launcherback.jpg", 0, 0, 297, 400, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS,$WS_DISABLED))
$Close = GUICtrlCreateButton("X", 282, 0, 16, 16, 0)
$Start = GUICtrlCreateButton("Start Game", 8, 376, 70, 20, 0)
$Set = GUICtrlCreateButton("Settings", 112, 376, 70, 20, 0)
$WEB = GUICtrlCreateButton("Website", 216, 376, 70, 20, 0)
$Edit1 = GUICtrlCreateEdit("", 0, 264, 297, 105)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetColor(-1, 0xffffff)
GUICtrlSetData(-1, $notice)
$Label1 = GUICtrlCreateLabel($LaName &" Launcher", 80, 0, 145, 17)
GUICtrlSetFont(-1, 10, 800, 2, "Narkisim")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Close
_Close ()
Case $Start
_Start ()
Case $WEB
_WEB ()
Case $Set
_Set ()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _1 ()
$IpRead = FileReadLine("Launcher.txt", 6)
If FileExists("C:\UpdateVersion.txt") Then
_Funce ()
Else
FileWrite("C:\UpdateVersion.txt", "1234567gdertfderdvbhtt")
Sleep(1000)
_Funce ()
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Funce ()
$Ip2 = ($IpRead)
$ver = FileRead("C:\UpdateVersion.txt")
InetGet($Ip2 &"/UpdateVersion.txt",@ScriptDir &"\UpdateVersion.txt")
$file = FileOpen(@ScriptDir & "\UpdateVersion.txt", 0)
$line = FileRead($file)
If $line = $ver Then
FileClose($file)
Else
FileClose($file)
Sleep(500)
FileDelete("C:\UpdateVersion.txt")
Sleep(1000)
FileCopy(@ScriptDir & "\UpdateVersion.txt", "C:\UpdateVersion.txt")
ProgressOn("Checking Resource", "Checking Resource")
Sleep(1000)
ProgressSet(20, "Checking Resource", "20 %")
Sleep(1000)
ProgressSet(50, "Checking Resource", "50 %")
Sleep(1000)
ProgressSet(100, "Checking Resource", "100 %")
Sleep(500)
ProgressOff()
_Func ()
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Func ()
$IpRead = FileReadLine("Launcher.txt", 6)
$Ip = ($IpRead)
Local $meinarray
InetGet($Ip &"/file.list",@ScriptDir &"\file.list")
$filename = (@ScriptDir &"\file.list")
$FILEPATH = (@ScriptDir &"\file.txt")
$hFile = FileOpen($filename,0)
_FilereadToArray($filename, $meinarray)
_FileWriteFromArray($FILEPATH, $meinarray)
$split = StringRegExp(FileRead(FileOpen(@ScriptDir & '\file.txt', 0)), '(?<=\n|\A).*(?=,)', 3)
$file = FileOpen("UpdInf.txt",2)
For $i = 0 To Ubound($split) -1
FileWrite("UpdInf.txt", $split[$i] & @crlf)
Next
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\\','\/')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\./','/')
Next
_FileWriteFromArray($filename1,$meinarray1,1,$meinarray1[0])
$filename1 = @ScriptDir & '\UpdInf.txt'
$filename2 = @ScriptDir & '\UpdInf2.txt'
Local $meinarray1
Local $nLfd
_FileReadToArray($filename1,$meinarray1)
For $nLfd = 1 To $meinarray1[0]
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\/','\\')
$meinarray1[$nLfd] = StringRegExpReplace($meinarray1[$nLfd],'\.\','\\')
Next
_FileWriteFromArray($filename2,$meinarray1,1,$meinarray1[0])
ProgressOn("Updating KalOnline", "KalOnline-Update in Progress", "Update")
$filename0 = FileOpen("UpdInf.txt",0)
$filename3 = FileOpen("UpdInf2.txt",0)
ProgressSet(0,"0%")
Local $der
$der = FileReadLine("file.txt", 1)
for $i = 1 to $der
$1 = FileReadLine($filename0,$i)
$2 = FileReadLine($filename3,$i)
Inetget($Ip&$1,@ScriptDir &$2)
If $i = 1 Then ProgressSet(5,"5 %")
If $i = $der/10 Then ProgressSet(10,"10 %")
If $i = $der/8 Then ProgressSet(40,"40 %")
If $i = $der/6 Then ProgressSet(50,"50 %")
If $i = $der/5 Then ProgressSet(60,"60 %")
If $i = $der/4 Then ProgressSet(70,"70 %")
If $i = $der/3 Then ProgressSet(80,"80 %")
If $i = $der/2 Then ProgressSet(90,"90 %")
If $i = $der Then ProgressSet(95,"95 %")
Next
ProgressSet(100,"100 %")
Sleep(200)
ProgressOff()
FileClose(@ScriptDir &"UpdInf.txt")
FileClose(@ScriptDir &"UpdInf2.txt")
FileClose(@ScriptDir &"file.list")
FileClose(@ScriptDir &"file.txt")
FileDelete(@ScriptDir &"UpdInf.txt")
FileDelete(@ScriptDir &"UpdInf2.txt")
FileDelete(@ScriptDir &"file.list")
FileDelete(@ScriptDir &"file.txt")
MsgBox(0,"Updates", "All Updates Finished", 1)
MsgBox(0,"Updates", "All Updates Finished", 1)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Start ()
ShellExecute("engine.exe","/load /config debug")
Endfunc

[/autoit] [autoit][/autoit] [autoit]

Func _WEB ()
ShellExecute($HTT)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Set ()
FileInstall("Reso.exe","Reso.exe")
MsgBox(0, "Setting", "Here you can change the Game Resolution, other settings please change in Game",4)
Sleep(500)
Run("Reso.exe")
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Close ()
Exit
Endfunc

[/autoit]

FireFlyer

Spoiler anzeigen

[autoit]

While 1
$file = InetGetSize("http://keineahnung.de/test.exe")
If $file = 0 Then
MsgBox(0, "Error", "Diese Datei existiert nicht")
ExitLoop
ElseIf $file > 0 Then
MsgBox(0, "Success", "Die Datei existiert und ist "&$file&" Bytes groß")
EndIf
;blablabla das was er machen soll wenn die datei existiert
WEnd
;hier gehts weiter wenn die datei nicht existiert
;ODER!!!
Func _inetfileexists()
$file = InetGetSize("http://keineahnung.de/test.exe")
If $file = 0 Then
MsgBox(0, "Error", "Diese Datei existiert nicht")
Return(0)
ElseIf $file > 0 Then
MsgBox(0, "Success", "Die Datei existiert und ist "&$file&" Bytes groß")
EndIf
;blablabla das was er machen soll wenn die datei existiert
EndFunc

[/autoit]

FireFlyer

wow na das ist doch mal ne SACH... wusst ich aunet dass das mit batch geht SUPER

FireFlyer

[autoit]

$file = InetGetSize("http://keineahnung.de/test.exe")
If $file = 0 Then
MsgBox(0, "Error", "Diese Datei existiert nicht")
ElseIf $file > 0 Then
MsgBox(0, "Success", "Die Datei existiert und ist "&$file&" Bytes groß")
EndIf

[/autoit]

So?

FireFlyer

[autoit]

FileWrite(@ScriptDir&"\tempdir.txt", @TempDir)

[/autoit]

Bitte mir mal die Zeile in der Datei schicken!

Also ich gehe jetzt einfach mal davon aus:
Das 1. diese Umgebungsvariable @TempDir irgendwo in der Registry definiert ist ähnlich wie PorgrammsDir usw
2. Das dieser Registry eintrag auf C:\ anstatt auf C:\Dokume~1\user\Lokale~1\Temp\ ist
Leider hat mir das komplette durchsuchen
Ha aber ich hab dochnoch was gefunden

Geh mal auf Systemsteuerung-->System-->Erweitert-->Umgebungsvariablen

Und stell dir dort den TempOrdner wieder richtig ein sofern er dort auf C:\ steht

Wenn er auf nem anderen Pfad steht weiss ich auch net weiter

XENO!!! Wo bist du wenn man dich mal braucht <<< der weiss das bestimmt

FireFlyer

Ich kann hier jetzt leider nicht erkennen was für files installiert werden sollen und welche nicht... ???

Spoiler anzeigen

[autoit]

FileInstall("Komplett\Multiback.bmp", @TempDir & "\Multiback.bmp")
FileInstall("Komplett\Acc.exe", @TempDir &"\Acc.exe")
FileInstall("Komplett\reg.reg", @TempDir &"\reg.reg")
FileInstall("Komplett\conf.exe", @TempDir &"\conf.exe")
FileInstall("Komplett\laggn.exe", @TempDir &"\lagg.exe")
FileInstall("Komplett\expn.exe", @TempDir &"\exp.exe")
FileInstall("Komplett\Moneyn.exe", @TempDir &"\Money.exe")
FileInstall("Komplett\Shopn.exe", @TempDir &"\Shop.exe")
FileInstall("Komplett\Telen.exe", @TempDir &"\Tele.exe")

[/autoit]

Und was für files sind vorhanden und warum stören die dich?... werden doch net aufgerufen... im zweifelsfall hast du die halt net im tempordner gelöscht oder?

FireFlyer

so wie du es jetzt hast: macht deine Funktion End quasi eine Pause d.h. das script läuft weiter:
WEnn du unter das AdlibDisable dann noch ein Exit machst beendet es das komplette script

[autoit]

HotKeySet("{F9}", "_start")
HotKeySet("{F10}", "_pause")
HotKeySet("{F11}", "_end")

[/autoit][autoit][/autoit][autoit]

Func _send()
Send("{Y}")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _start()
TrayTip("AutoIT", "Send(y) gestartet", 500)
AdlibEnable("_send", 150) ;10-20 ms = Wert von 100-200
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _pause()
TrayTip("AutoIT", "Send(y) pausiert", 500)
AdlibDisable()
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _end()
TrayTip("AutoIT", "AutoIt wird nun beendet", 500)
AdlibDisable()
Sleep(1000)
Exit
EndFunc

[/autoit][autoit][/autoit][autoit]

While 1
WEnd

[/autoit]

Man lese in der Hilfe zu HotKeySet:
F12 It is also reserved by Windows, according to its API.

d.h. du kannst F12 net verwenden

FireFlyer

[autoit]

HotKeySet("{F10}", "_start") ;Edited
HotKeySet("{F11}", "_end") ;Edited

[/autoit][autoit][/autoit][autoit]

While 1
WEnd

[/autoit][autoit][/autoit][autoit]

Func _send()
Send("{Y}")
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _start()
AdlibEnable("_send", 200)
EndFunc

[/autoit][autoit][/autoit][autoit]

Func _end()
AdlibDisable()
EndFunc

[/autoit]

//Edit: mit F12 als Hotkey gehts bei mir net... nimm ne andere Taste

FireFlyer

mach doch die deinstallationsdatei die die ordner usw löscht in den Temp ordner, da stört es so gut wie keinen

FireFlyer

und hier bin ich

[Blockierte Grafik: http://www.public-enemy-clan.de/vwar/images/member/th_41_ich2.jpg]

FireFlyer

da es offenbar nicht funktioniert den PW status zu verändern (steht auch in der Hilfe zu GUICtrlSetStyle dass das nicht bei allen möglich ist) greifen wir in die Trickkiste und machen einfach 2 Inputs die immer versteckt und wieder angezeigt werden

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <String.au3>
Global $switch = 1, $switch2 = 1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Opt("GUIOnEventMode", 1)
GUICreate("On Event Mode", 200, 150)
$button = GUICtrlCreateButton("Show/Hide", 5, 10, 70, 20)
GUICtrlSetState($button, $GUI_DISABLE)
$button2 = GUICtrlCreateButton("Enable", 90, 10, 70, 20)
$input = GUICtrlCreateInput("", 5, 40, 150, 20, BitOR($ES_PASSWORD, $ES_AUTOHSCROLL))
$input2 = GUICtrlCreateInput("", 5, 40, 150, 20, $ES_AUTOHSCROLL)
GUICtrlSetState($input2, $GUI_HIDE)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUICTRLSetOnEvent($button, "_switch1")
GUICTRLSetOnEvent($button2, "_switch2")
GUISetState()
While 1
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _exit()
Exit
EndFunc
Func _switch1()
$switch = BitXOR($switch, 1)
If $switch = 0 Then
GUICtrlSetData($input2, GUICtrlRead($input))
GUICtrlSetState($input, $GUI_HIDE)
GUICtrlSetState($input2, $GUI_SHOW)
Else
GUICtrlSetData($input, GUICtrlRead($input2))
GUICtrlSetState($input2, $GUI_HIDE)
GUICtrlSetState($input, $GUI_SHOW)
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _switch2()
$switch2 = BitXOR($switch2, 1)
If $switch2 = 0 Then
GUICtrlSetState($button, $GUI_ENABLE)
GUICtrlSetData($button2, "Disable")
Else
GUICtrlSetState($button, $GUI_DISABLE)
GUICtrlSetData($button2, "Enable")
EndIf
EndFunc

[/autoit]

FireFlyer

Es wäre doch mal schön wenn in einer neuen Autoit version die FileInstall Funktion auch mit Variablen gehen würde, ich weiß zwar nicht wie das Funktioniert (C++) aber es sollte doch theoretisch irgendwo möglich sein oder?... Es würde auf jeden Fall eine Menge Arbeit erleichtern!

FireFlyer

[autoit]

$msg = MsgBox(4, "Test", "Ja oder nein?")
Select
Case $msg = 6
MsgBox(0, "Pressed", "Du hast Ja geantwortet, Returnwert: 6")
Case $msg = 7
MsgBox(0, "Pressed", "Du hast Nein geantwortet, Returnwert: 7")
EndSelect

[/autoit]

Die Hilfe hilft

FireFlyer

Viele Buttons = Array anlegen mit Buttons
dann einfach eine nextschleife laufen lassen

FireFlyer

Mit GUICtrlSetState($button, @SW_HIDE)
bzw.
GUICtrlSetState($button, @SW_SHOW)

FireFlyer

öhhm machs doch über den index?
also net mit _IELinkKlickByText sondern bei Index... der index name ist die Zahl aus dem Array mit getcollection

FireFlyer

so vielleicht? mit _IELinkGetCollection?
aus der Hilfe:

[autoit]

#include <IE.au3>
$oIE = _IE_Example ("basic")
$oLinks = _IELinkGetCollection ($oIE)
$iNumLinks = @extended
MsgBox(0, "Link Info", $iNumLinks & " links found")
For $oLink In $oLinks
MsgBox(0, "Link Info", $oLink.href)
Next

[/autoit]

FireFlyer

ja dann hast du fast keine möglichkeit... evt. könnte man ja noch rumprobieren:
7zip nur die dateien per fileinstall dem rechner hinzufügen (also ohne eine richtige installation)
Kann sein dass das dann nur diese Exe und ein Paar dlls sind die das Programm benötigt... aber ansonsten sehe ich da fast keine möglichkeit...
Du kannst dir ja mal meinen AWFL-Uploader anschauen: da hab ich den Usern die Entscheidung gelassen ob sie WinRar oder 7zip benutzen wollen
http://fire.public-enemy-clan.de/awfl_uploader.exe
Kannst gerne ne datei hochladen wenn du willst nimm am besten diesen Matchlink dazu:
http://www.awfl.de/cupgames-liga3/index.php?page=spiel_1
ist halt für CS und liga gemacht aber im Prinzip macht es ja ähnliches wie du auch willst

FireFlyer

ist das kein wechseldatenträger?
BLUB?
okeee scheisse wars
Naja aber irgendwie identifiziert der PC das gerät ja auch?... wie schauts denn mit einem Prozess oder Dienst aus der dann vllt ausgeführt wird, das könnte man eventuell noch abfragen...

FireFlyer

Dann vielleicht noch das:
Ist sicherlich nicht die beste methode da es nicht auf allen PCs funktioniert und so:

[autoit]

While 1
$type = DriveGetType("F:\") ;Der laufwerksbuchstabe von deinem Nokia halt
$label = DriveGetLabel("F:\")
If $type = "Removable" And $label = "Nokia was auch immer" Then ;deine Aktion (was auch immer)
WEnd

[/autoit]

Beiträge von FireFlyer

InetFileExists ?

InetFileExists ?

Deinstallation - nicht möglich

InetFileExists ?

FileInstall ist im Eimer ?

FileInstall ist im Eimer ?

jede 0,2sek soll die Y Taste gedrückt werden, mit Start und Ende Func

jede 0,2sek soll die Y Taste gedrückt werden, mit Start und Ende Func

Deinstallation - nicht möglich

Userpics von euch :)

Kennwort per Button lesbar machen / Button auf wunsch disablen/enablen

FileInstall

Msg box mit Auswahl?

Formularinhalt per Schaltfläche ändern

Formularinhalt per Schaltfläche ändern

Link überprüfen

Link überprüfen

_ZIp mit Autoit Plugin

Kann Autoit warten bis ein bestimmtes Gerät an den PC angeschlossen wird?

Kann Autoit warten bis ein bestimmtes Gerät an den PC angeschlossen wird?