Was willst du damit erreichen, 2 systemvariablen hintereinander stehen zu haben?
%Windir%%TempDir% ergibt doch C:\WindowsC:\Users\Shkal\AppData\Local\Temp
was für einen näheren Sinn hat das dann?
Was willst du damit erreichen, 2 systemvariablen hintereinander stehen zu haben?
%Windir%%TempDir% ergibt doch C:\WindowsC:\Users\Shkal\AppData\Local\Temp
was für einen näheren Sinn hat das dann?
Ich hab es schon mit einem zweiten AdlibEnable versucht, aber es klapp einfach nicht . Könnt ihr mir sagen, wo der Fehler ist?
Ohne dein Script anzuschauen kann ich dir sagen: benutz die Beta-Version. Da kannst du mit AdlibRegister mehrere Adlibs verwenden.
EDIT: Und nachdem ich dein Skript angeschaut habe:
AdlibEnable("MouseUpdate", 50)
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(500)
ProzessorUp()
WEnd
und es funzt. 10ms war einfach zu arg bemessen.
Edit: nein es funktioniert doch nicht. Ich war mal wider ein Dummbatzen
1. Du könntest gucken wo er Speichert wann die Test-Version Vorbei ist. Also mache Programme z.B. schreiben es in die Registry.
*agree*
Oder du löschst einfach den ganzen unnötigen Trialversions mist aus dem sourcecode
Aber jetzt mal im Ernst - funktioniert das Teil bei euch überhaupt? bei mir hat dieser vermeintliche bot nach 6 minuten einen stein umgelegt. das schaff ich ja von hand noch schneller - und ich war in solchen Spielen noch nie ne große Leuchte.
Wow, ich wusste garnicht, dass wir neuerdings ein cracking forum sind?
alter....
das geht nicht ich will das fenster ja verschieben können und es soll immer noch auf den buttongeklickt werden
Wo liegt dein Problem?
Wenn ich das Script von Schnuffel nehme, funktioniert es nicht. Ich muss erst "http://www.autoit.de/" zu "www.autoit.de" ändern. Nur so zur info
Sollte kein Vorwurf sein
Hab ich auch nicht so aufgefasst
jap ich hab es ausprobiert. So ne Funktion zu schreiben ohne sie zu testen wär ja auch schön blöd hehe
und bei mir ist kein Fehler aufgetreten. Wenn das Skript das archiv nicht öffnen kann ist es wohl beschädigt oder vllt passwordgeschützt(obwohl das Skript dann eigentlich automatisch nach nem passwort fragt)
ändere ggf. mal
[autoit]If @error Then
MsgBox(16, "UnRAR", "Archive open error")
Return 0
Else
zu
If @error Then
MsgBox(16, "UnRAR", "Archive open error"&@CRLF&$sFile)
Return 0
Else
Damit du wenigstens siehst, welche Datei probleme macht.
Habe das grade mal reproduziert, wenn das Archiv beschädigt ist, kommt besagte Fehlermeldung. Alle anderen Archive werden aber trotzdem entpackt.
[autoit]Kann man das verhindern?
$Combo1 = GUICtrlCreateCombo($aIniSection[1][1], 8, 8, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$CBS_DROPDOWNLIST))
[/autoit]
$CBS_DROPDOWNLIST - dann kann man nix mehr löschen ;D
Simpel, aber es funktioniert.
Das Problem ist einfach, dass _GUICtrlComboBox_GetCurSel() -1 ausgibt, sobald der Wert geändert wurde (weil es ja keine "auswahl" in der ComboBox mehr ist). Das war auch das Problem an dem ich zu Anfang zu knabbern hatte, als du alles noch nur über eine ComboBox laufen lassen wolltest.
Zitat von RaupiMeins funtz auch ohne zuvor erstellte INI
Könnt meins ja auch so weit umbauen, dass die Ini nicht zwingend gebraucht wird, aber ehrlich gesagt hatte ich da nicht so ne große Lust drauf Wenn ich alles perfektioniere, komm ich ja zu garnix mehr
Warum kompliziert? ich habe nur 2 Schleifen eingefügt, damit du auch dynamisch viele einträge in der ComboBox haben kannst. Wenn du möchtest kann ich dir das auch mal alles auskommentieren, musst halt nur was sagen
aber jetzt werd ich erstmal was futtern
Du weißt aber schon, dass InetGet Standartmäßig wartet, und du das jetzt so umgestellt hat, dass InetGet NICHT mehr wartet?
Opt("MouseCoordMode",2)
[/autoit]#include <GuiComboBox.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form = GUICreate("Test", 162, 69, 327, 241)
GUISetBkColor(0xFFFFFF)
$aIniSection = IniReadSection("test.ini","Combo")
$Combo1 = GUICtrlCreateCombo($aIniSection[1][1], 8, 8, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
For $i = 2 to $aIniSection[0][0]
GUICtrlSetData($Combo1,$aIniSection[$i][1],"")
Next
$Input1 = GUICtrlCreateInput("Text", 8, 40, 97, 21)
$Button1 = GUICtrlCreateButton("Save", 108, 36, 43, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Sel = _GUICtrlComboBox_GetCurSel($Combo1)
_GUICtrlComboBox_DeleteString($Combo1, $Sel)
_GUICtrlComboBox_InsertString($Combo1,GUICtrlRead( $Input1), $Sel)
_GUICtrlComboBox_SetCurSel($Combo1, $Sel)
;~ GUICtrlSetData($Combo1,GUICtrlRead( $Input1))
$aComboList = _GUICtrlComboBox_GetListArray($Combo1)
For $i = 1 to $aComboList[0]
IniWrite("test.ini","Combo",$i-1,$aComboList[$i])
Next
EndSwitch
WEnd
und die .ini sieht dann so aus:
[Combo]
0=Hallo
1=Ich bin 2
2=Mir is langweilig
aber warum
mach mal "http://" und "/" weg...
also nur $ftp = "www.google.de"
Das ist ja nicht das Problem. Allerdings wolltest du eben
1. einen Wert aus der ComboBox auswählen
2. einen neuen Wert in die Combobox eintragen
3. den alten wert dadurch überschreiben UND das für den nächsten "start" übernehmen
das ist wie gesagt nicht so einfach, oder ich komm einfach nicht drauf..
zu deinem jetzigen problem
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIComboBox.au3>
#Region ### START Koda GUI section ### Form=
$Form = GUICreate("Test", 162, 69, 327, 241)
GUISetBkColor(0xFFFFFF)
$Combo1 = GUICtrlCreateCombo("Test 1", 8, 8, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Test 2|Test 3")
$Input1 = GUICtrlCreateInput("Text", 8, 40, 97, 21)
$Button1 = GUICtrlCreateButton("Save", 108, 36, 43, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
;~ _GUICtrlComboBox_ReplaceEditSel(ControlGetHandle($Form,"",$Combo1),GUICtrlRead($Combo1))
$sel = _GUICtrlComboBox_GetCurSel(ControlGetHandle($Form,"",$Combo1))
_GUICtrlComboBox_InsertString(ControlGetHandle($Form,"",$Combo1),GUICtrlRead($Input1),_GUICtrlComboBox_GetCurSel(ControlGetHandle($Form,"",$Combo1)))
_GUICtrlComboBox_DeleteString(ControlGetHandle($Form,"",$Combo1),_GUICtrlComboBox_GetCurSel(ControlGetHandle($Form,"",$Combo1)))
_GUICtrlComboBox_SetCurSel(ControlGetHandle($Form,"",$Combo1),$sel)
EndSwitch
WEnd
Zu deinem jetzigen editstand kann ich ich nur sagen
[autoit]GUICtrlSetData($Combo1, GUICtrlRead($Input1))
[/autoit]an deinem anderen Problem arbeite ich aber es scheint nich so leicht zu sein.. oder ich steh aufm schlauch
Musste ein bisschen umbasteln... doofe zeit muss ja unbedingt bei 24 wieder auf 0 springen >.>
#include <GUIConstants.au3>
#include <IE.au3>
#Include <Date.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
$gui = GUICreate('', 250, 200, -1, -1)
GUICtrlSetBkColor(Default, $GUI_BKCOLOR_TRANSPARENT)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$button = GUICtrlCreateButton("Click on me !!!", 48, 164, 104, 17, 0)
GUICtrlSetOnEvent(-1, "OnClick")
GuiCtrlCreatepic("Hintergrund.JPG", 0 , 0 , 250, 200)
$1 = GUICtrlCreateLabel("", 48, 124, 64, 17)
$2 = GUICtrlCreateLabel("", 48, 144, 64, 17)
GUISetState()
AdlibEnable("_a1", 500); aktualisiert jede halbe sekunde das Datum und die Uhrzeit
[/autoit] [autoit][/autoit] [autoit]While 1 * Sleep (100)
If @HOUR >= 12 AND @HOUR < 16 Then
ToolTip("Bis 16 Uhr sinds noch: "&_CalcTimeTillTime("16:00:00"),MouseGetPos(0),MouseGetPos(1))
ElseIf @HOUR >= 16 AND @HOUR < 20 Then
ToolTip("Bis 20 Uhr sinds noch: "&_CalcTimeTillTime("20:00:00"),MouseGetPos(0),MouseGetPos(1))
ElseIf (@HOUR >= 20 AND @HOUR <= 23) OR (@HOUR >= 0 AND @HOUR < 12) Then
ToolTip("Bis 12 Uhr sinds noch: "&_CalcTimeTillTime("12:00:00"),MouseGetPos(0),MouseGetPos(1))
EndIf
WEnd
Func _a1() ; Datum und uhrzeit aktuell halten
GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)
EndFunc ;==>_a1
[/autoit] [autoit][/autoit] [autoit]Func _CalcTimeTillTime($sTime)
Local $iNow = _TimeToTicks(), $iLater, $iLaterH, $iLaterM, $iLaterS
$sTime = StringSplit($sTime,":",2)
$iLater = _TimeToTicks($sTime[0],$sTime[1],$sTime[2])
If $iLater < $iNow Then $iLater += (_TimeToTicks(23,59,59)+1000)
_TicksToTime($iLater - $iNow,$iLaterH, $iLaterM, $iLaterS)
ConsoleWrite("$iNow: "&$iNow&@CRLF&" $iLater: "&$iLater&@CRLF)
$iLater = StringFormat("%02i:%02i:%02i", $iLaterH, $iLaterM, $iLaterS)
Return($iLater)
EndFunc
Func OKButton()
MsgBox(0, "GUI Event", "You have clicked on OK!")
Exit
EndFunc ;==>OKButton
Func CLOSEClicked()
MsgBox(0, "GUI Event", "You have clicked on CLOSE! Program will be shut down ...")
Exit
EndFunc ;==>CLOSEClicked
Func OnClick()
Run("...")
ShellExecute("www.autoit.de")
Exit
EndFunc ;==>OnClick
#include <GUIConstants.au3>
#include <IE.au3>
#Include <Date.au3>
#include <Array.au3>
Opt("GUIOnEventMode", 1)
$gui = GUICreate('', 250, 200, -1, -1)
GUICtrlSetBkColor(Default, $GUI_BKCOLOR_TRANSPARENT)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$button = GUICtrlCreateButton("Click on me !!!", 48, 164, 104, 17, 0)
GUICtrlSetOnEvent(-1, "OnClick")
GuiCtrlCreatepic("Hintergrund.JPG", 0 , 0 , 250, 200)
$1 = GUICtrlCreateLabel("", 48, 124, 64, 17)
$2 = GUICtrlCreateLabel("", 48, 144, 64, 17)
GUISetState()
AdlibEnable("_a1", 500); aktualisiert jede halbe sekunde das Datum und die Uhrzeit
[/autoit] [autoit][/autoit] [autoit]While 1 * Sleep (100)
ToolTip(_CalcTimeTillTime("23:59:00"),MouseGetPos(0),MouseGetPos(1))
WEnd
Func _a1() ; Datum und uhrzeit aktuell halten
GUICtrlSetData($2, @HOUR & ":" & @MIN & ":" & @SEC)
GUICtrlSetData($1, @MDAY & "." & @MON & "." & @YEAR)
EndFunc ;==>_a1
[/autoit] [autoit][/autoit] [autoit]Func _CalcTimeTillTime($sTime)
Local $iNow = _TimeToTicks(), $iLater, $iLaterH, $iLaterM, $iLaterS
$sTime = StringSplit($sTime,":",2)
$iLater = _TimeToTicks($sTime[0],$sTime[1],$sTime[2])
_TicksToTime($iLater - $iNow,$iLaterH, $iLaterM, $iLaterS)
$iLater = StringFormat("%02i:%02i:%02i", $iLaterH, $iLaterM, $iLaterS)
Return($iLater)
EndFunc
Func OKButton()
MsgBox(0, "GUI Event", "You have clicked on OK!")
Exit
EndFunc ;==>OKButton
Func CLOSEClicked()
MsgBox(0, "GUI Event", "You have clicked on CLOSE! Program will be shut down ...")
Exit
EndFunc ;==>CLOSEClicked
Func OnClick()
Run("...")
ShellExecute("www.autoit.de")
Exit
EndFunc ;==>OnClick
In einer While/Do/For-Schleife kannst du jederzeit mit "ContinueLoop" an den Schleifenanfang springen.
Na das wird sich mir mit Sicherheit noch einmal als nützlich erweisen. Danke für den Tipp