Schonmal mit notepad++ versucht? Sollte damit funktionieren.
Beiträge von blubbstar
-
-
Mit eine Forschleife und _Ispressed kannst du das lösen. Aber, da helfe ich ungern ;).
-
Ne, anno's Beispiel ist schon gut so. Was machst du wenn im Dateinamen ein . vorkommt?
-
GuiCtrlSetData ist schon die richtige Lösung. Zeig uns doch mal deinen Versuch, dann können wir schauen wo der Fehler versteckt is :).
-
Man kann es erweitern, nur ist ein bischen Arbeit
-
Ob das Zeit spart xD?
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <iNet.au3>$oIE=_IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Loading ...", 625, 445, 221, 135)
$Obj= GUICtrlCreateObj($oIE,-1,-1,625,445)
GUISetState(@SW_SHOW)
_IENavigate($oIE,"http://www.google.de")
#EndRegion ### END Koda GUI section ###AdlibEnable("_winsettitle")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndFunc _winsettitle()
[/autoit]
$titel = _StringBetween(_INetGetSource("http://www.google.de"),"<title>","</title>")
WinSetTitle("Loading ...", "", $titel[0])
AdlibDisable()
EndFunc -
Naja mir fällt da nur die inet funktion ein. Aber die kostet halt Zeit und zwar ziemlich viel :E.
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <iNet.au3>$oIE=_IECreateEmbedded()
[/autoit] [autoit][/autoit] [autoit]
$titel = _StringBetween(_INetGetSource("http://www.google.de"),"<title>","</title>")#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate($titel[0], 625, 445, 221, 135)
$Obj= GUICtrlCreateObj($oIE,-1,-1,625,445)
GUISetState(@SW_SHOW)
_IENavigate($oIE,"http://www.google.de")
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd -
Zitat
ich versuche die ganze zeit den bereich zwichen <title> und </title> auszulesen und als Fenster Titel für mein Gui zu verwenden.
Zitataber wie soll ich dem _StringBetween verklickern in welchem html formular er suchen soll??
Ich kann dir nur schwer folgen^^. -
Die Wan IP?
[autoit]#include <iNet.au3>
[/autoit]
MsgBox(0, "", _GetIP()) -
Naja, einen gewissen "goto" befehl gibt es nicht. Aber ist auch gut so. Die Funktion kannst du vorzeitig mit return beenden. Wenn die Funktion zu Ende ist kehrt er dorthin wieder zurück, wo du sie aufgerufen hast.
-
-
Hallo :),
ja, du kannst es auch auf anderen Computern ausführen, da beim compilen (au3 zur .exe) diese Datei miteinbezogen wird, sprich der Inhalt dieser Datei ist anschließend auch in der .exe Datei vorhanden.
Du kannst zum Beispiel, wenn du ein größeres Projekt hast, mehrere au3 Dateien für die bestimmten Berreiche schreiben und später im Hauptscript includen. Bringt halt eine bessere Übersicht, lohnt sich aber nur bei einem größeren Projekt.
Die Standardincludes (GuiConstants, EditConstants..., etc.) Brauchst du halt für bestimmte Stile, sprich bei der Combobox das man nichts reinschreiben kann o.ä. Findest du schon noch raus ;). -
Spoiler anzeigen
[autoit]$regread = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE", "zaehler")
[/autoit]
If $regread < 30 Then
If $regread = "" Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE", "zaehler", "REG_SZ", "1")
Else
$regread += 1
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE", "zaehler", "REG_SZ", $regread)
EndIf
Else
MsgBox(0, "", "Bitte die aktuellen Daten in den Ordner xyz kopieren.")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE", "zaehler", "REG_SZ", "1")
EndIf -
Oder so:
Spoiler anzeigen
[autoit]$wort = InputBox("", "")
[/autoit]
Run("notepad.exe")
WinWaitActive("Unbenannt - Editor")
Send($wort, 1)
Sleep(1000)
For $i = 1 to StringLen($wort)
Send("{BS}")
Next -
naja, sleeps ich weiss nicht, ziemlich unübersichtlich bei mehreren Tasten.
Hier timerinit + timerdiff lösung:Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Global $Paused
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{F10}", "BotStart")
HotKeySet("{F9}", "Pause")
HotKeySet("{ESC}", "Beenden")$Form1 = GUICreate("Multi Metin2Bot by eBErmir", 269, 350, 220, 121)
[/autoit] [autoit][/autoit] [autoit]
$Tab1 = GUICtrlCreateTab(0, 0, 265, 349)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Main")
$FK1 = GUICtrlCreateLabel("FK1 auf : ", 14, 45, 53, 17)
$FK2 = GUICtrlCreateLabel("FK2 auf : ", 14, 69, 53, 17)
$FK1_Input = GUICtrlCreateInput("3", 77, 43, 33, 21)
$FK2_Input = GUICtrlCreateInput("4", 77, 67, 33, 21)
$FK1_sec = GUICtrlCreateLabel("sec.", 218, 47, 24, 17)
$FK2_sec = GUICtrlCreateLabel("sec.", 218, 71, 24, 17)
$FK1_warten = GUICtrlCreateLabel("...warten", 117, 46, 45, 17)
$FK2_Input_wait = GUICtrlCreateInput("105000", 164, 67, 50, 21)
$FK1_Input_wait = GUICtrlCreateInput("25000", 164, 43, 50, 21)
$FK2_warten = GUICtrlCreateLabel("...warten", 117, 71, 45, 17)
$FK3 = GUICtrlCreateLabel("FK3 auf : ", 15, 94, 53, 17)
$FK4 = GUICtrlCreateLabel("FK4 auf : ", 15, 118, 53, 17)
$FK3_Input = GUICtrlCreateInput("" & """{F1}""" & "", 77, 92, 33, 21)
$FK4_Input = GUICtrlCreateInput("" & """{F2}""" & "", 77, 115, 33, 21)
$FK3_sec = GUICtrlCreateLabel("sec.", 219, 96, 24, 17)
$FK4_sec = GUICtrlCreateLabel("sec.", 219, 120, 24, 17)
$FK3_warten = GUICtrlCreateLabel("...warten", 118, 95, 45, 17)
$FK4_Input_wait = GUICtrlCreateInput("20000", 164, 116, 50, 21)
$FK3_Input_wait = GUICtrlCreateInput("15000", 164, 92, 50, 21)
$FK4_warten = GUICtrlCreateLabel("...warten", 118, 120, 45, 17)
$FK5 = GUICtrlCreateLabel("FK5 auf : ", 16, 142, 53, 17)
$FK6 = GUICtrlCreateLabel("FK6 auf : ", 16, 166, 53, 17)
$FK5_Input = GUICtrlCreateInput("" & """{F3}""" & "", 77, 140, 33, 21)
$FK6_Input = GUICtrlCreateInput("" & """{F4}""" & "", 77, 164, 33, 21)
$FK5_sec = GUICtrlCreateLabel("sec.", 220, 144, 24, 17)
$FK6_sec = GUICtrlCreateLabel("sec.", 220, 168, 24, 17)
$FK5_warten = GUICtrlCreateLabel("...warten", 119, 143, 45, 17)
$FK6_Input_wait = GUICtrlCreateInput("15000", 164, 164, 50, 21)
$FK5_Input_wait = GUICtrlCreateInput("25000", 164, 140, 50, 21)
$FK6_warten = GUICtrlCreateLabel("...warten", 119, 168, 45, 17)
$Roter_Pot = GUICtrlCreateLabel("Roter Pot: ", 16, 216, 55, 17)
$RP_Input = GUICtrlCreateInput("1", 77, 214, 33, 21)
$RP_warten = GUICtrlCreateLabel("...warten", 119, 217, 45, 17)
$RP_Input_wait = GUICtrlCreateInput("10000", 164, 214, 50, 21)
$RP_sec = GUICtrlCreateLabel("sec.", 220, 216, 24, 17)
$BP_sec = GUICtrlCreateLabel("sec.", 220, 241, 24, 17)
$BP_Input_wait = GUICtrlCreateInput("20000", 164, 239, 50, 21)
$BP_warten = GUICtrlCreateLabel("...warten", 119, 242, 45, 17)
$BP_Input = GUICtrlCreateInput("2", 77, 239, 33, 21)
$Blauer_Pot = GUICtrlCreateLabel("Blauer Pot: ", 16, 241, 59, 17)
$Group1 = GUICtrlCreateGroup("Fertigkeiten Bot", 10, 29, 241, 165)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Potte Bot", 10, 200, 241, 69)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Pick UP Bot", 10, 273, 241, 61)
$Button1 = GUICtrlCreateButton("Normal", 17, 296, 69, 25, 0)
$Button2 = GUICtrlCreateButton("Mittel", 94, 296, 65, 25, 0)
$Button3 = GUICtrlCreateButton("Schnell", 169, 295, 65, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet2 = GUICtrlCreateTabItem("Credits")
$Label1 = GUICtrlCreateLabel("Dieser Bot funzt nur mit den Multihackselector. ", 6, 33, 226, 17)
$Label2 = GUICtrlCreateLabel("Und ist auch dafür gescriptet worden...damit dies ", 6, 53, 240, 17)
$Label3 = GUICtrlCreateLabel("ein Sinn hat müsst ihr MobLock anschalten.", 6, 75, 210, 17)
$Button4 = GUICtrlCreateButton("--=::=- HOMEPAGE --=::=--", 3, 320, 257, 25, 0)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Hotkeys: SchlageBot PickupBot ", 6, 97, 221, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0x0000FF)
$Label5 = GUICtrlCreateLabel(" F9 = Pause ", 59, 137, 169, 17)
GUICtrlSetBkColor(-1, 0xFFFF00)
$Label6 = GUICtrlCreateLabel(" ESC = Beenden ", 59, 158, 170, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label7 = GUICtrlCreateLabel("F10 = Start ", 60, 117, 65, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label8 = GUICtrlCreateLabel("Per Tasten ", 162, 117, 65, 17)
GUICtrlSetBkColor(-1, 0x00FF00)
$Label10 = GUICtrlCreateLabel("Viel Spaß....", 18, 193, 118, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Label11 = GUICtrlCreateLabel("...wünscht euch", 83, 231, 152, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008000)
$Label12 = GUICtrlCreateLabel("...eBErmir...", 29, 271, 141, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Local $Paused
Case $Button1
Sleep(1000)
While 1
Sleep(50)
Send("y")
WEnd
Case $Button2
Sleep(1000)
While 1
Sleep(15)
Send("y")
WEnd
Case $Button3
Sleep(1000)
While 1
Send("y")
WEnd
EndSwitch
WEndFunc BotStart()
[/autoit] [autoit][/autoit] [autoit]
Sleep(1000)
AdlibEnable("_adlibenable")
$Fertigkeitenanzahl = 6
Global $FKeit[$Fertigkeitenanzahl + 1]
Global $FKeitwait[$Fertigkeitenanzahl + 1]
Global $Fkeittimer[$Fertigkeitenanzahl + 1]
For $i = 1 To $Fertigkeitenanzahl
$FKeit[$i] = GUICtrlRead(Eval("FK" & $i & "_Input"))
$FKeitwait[$i] = GUICtrlRead(Eval("FK" & $i & "_Input_wait"))
Next
$RPot1 = GUICtrlRead($RP_Input)
$RPot1_wait = GUICtrlRead($RP_Input_wait)
$BPot2 = GUICtrlRead($BP_Input)
$BPot2_wait = GUICtrlRead($BP_Input_wait)
For $i = 1 To $Fertigkeitenanzahl
$Fkeittimer[$i] = TimerInit()
Next
$RPottimer = TimerInit()
$BPottimer = TimerInit()While 1
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To $Fertigkeitenanzahl
If TimerDiff($Fkeittimer[$i]) > $FKeitwait[$i] Then
Send($FKeit[$i])
$Fkeittimer[$i] = TimerInit()
EndIf
Next
If TimerDiff($RPottimer) > $RPot1_wait Then
Send($RPot1)
$RPottimer = TimerInit()
EndIf
If TimerDiff($BPottimer) > $BPot2_wait Then
Send($BPot2)
$BPottimer = TimerInit()
EndIf
sleep(50); sonst cpuauslastnug = 50 bzw 100%
WEnd
EndFunc ;==>BotStart
;----------------------------------------Func _adlibenable()
[/autoit] [autoit][/autoit] [autoit]
Send("{Space}") ;Im hintergrund soll die ganze Zeit noch Space gedrückt sein.
Sleep(100)
EndFunc ;==>_adlibenableFunc Pause()
[/autoit] [autoit][/autoit] [autoit]
$Paused = Not $Paused
While $Paused
Sleep(50)
WEnd
EndFunc ;==>PauseFunc Beenden()
[/autoit]
MsgBox(0, "Multi Metin2Bot", "Hiermit wird der Programm jetzt geschlossen !!")
Exit 0
EndFunc ;==>Beenden -
Kannste auch mit den IE Funktionen machen.
_IECreate ... und später halt dann immer _IEBodyReadHTML oder _IEBodyReadText. -
Alles in eine Schleife, ist doch auch kein Problem.
-
nomadmemory!
-
shellexecute
-