Danke @Friesel Ich habe mir deinen Skript jetzt lange genau angeschaut und studiert, dadurch habe ich wieder etwas sehr wichtiges dazu gelernt
Beiträge von pltnpcs
-
-
In meinem Programm soll eigentlich in Zeile 78 geguckt werden ob ich einen Text im Input habe, und daraufhin zurückgeschrieben werden aber das funktioniert einfach nicht. Ich bin jetzt seit ca 4 Stunden an diesem kleinen Problem und mit den Nerven am Ende. Kann mir jemand sagen was ich falsch gemacht habe?
AutoIt
Alles anzeigen#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <File.au3> #include <WindowsConstants.au3> #include <FileConstants.au3> #include <WinAPIFiles.au3> #include <Misc.au3> #include <IE.au3> #include <String.au3> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; If Not FileExists("documents\p19data\input\01.txt") Then DirCreate("documents\p19data") DirCreate("documents\p19data\input") _FileCreate("documents\p19data\input\01.txt") FileOpen("documents\p19data\input\01.txt") FileWriteLine("documents\p19data\input\01.txt","Hallo;Hi;Hey;") FileClose("documents\p19data\input\01.txt") EndIf $i01plt = FileRead("documents\p19data\output\begruessung.txt") $i01 = StringSplit($i01plt,";") ;;; If Not FileExists("documents\p19data\output\01.txt") Then DirCreate("documents\p19data") DirCreate("documents\p19data\output") _FileCreate("documents\p19data\output\01.txt") FileOpen("documents\p19data\output\01.txt") FileWriteLine("documents\p19data\output\01.txt","Hallo;Hi;Hey;") FileClose("documents\p19data\output\01.txt") EndIf $o01plt = FileRead("documents\p19data\output\begruessung.txt") $o01 = StringSplit($o01plt,";") ;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; HotKeySet("{ENTER}","antwort") ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #Region ### START Koda GUI section ### Form= $formp19 = GUICreate("P19", 480, 270, 694, 228) $pic = GUICtrlCreatePic("C:\Users\plati\Desktop\viv\wallpaper.jpg", 0, 0, 480, 270) GUICtrlSetState($pic,$GUI_DISABLE) $iE = _IECreateEmbedded() $obj = GUICtrlCreateObj($iE, -5, -5, 1, 1) _IENavigate($iE, "https://translate.google.com/?hl=de#de/en/") GUISetFont(14, 400, 0, "MS Sans Serif") GUISetBkColor(0xFFFFDF) GUICtrlSetFont(-1, 12, 400, 0, "Segoe UI Semilight") $input = GUICtrlCreateInput("", 30, 24, 425, 28) GUICtrlSetFont(-1, 11, 400, 0, "Segoe UI Semilight") GUICtrlSetBkColor(-1, 0xAEFFFF) $output = GUICtrlCreateLabel("", 42, 75, 398, 148, $WS_BORDER) GUICtrlSetFont(-1, 14, 400, 0, "Segoe UI Semilight") GUICtrlSetBkColor(-1, 0xAEFFFF) $antwort = GUICtrlCreateButton("Answer", -20, -20, 1, 1) GUICtrlSetFont(-1, 14, 400, 0, "Segoe UI Semilight") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Case $antwort Func antwort() $data = GUICtrlRead($input) $outputline1 = FileReadLine("documents\P19outputdata.txt",1) $r2 = Random(1,2,1) $r3 = Random(1,3,1) $r4 = Random(1,4,1) $r5 = Random(1,5,1) $r6 = Random(1,6,1) $r7 = Random(1,7,1) If StringInStr($data,$i01) Then GUICtrlSetData($output,$o01plt) ConsoleWrite("hat funktioniert") EndIf EndFunc EndSwitch WEnd -
-
In meinem GUI habe ich ein Hintergrundbild eingesetzt, es perfekt zugeschnitten und es in den Hintergrund gelegt. Im GUI habe ich haußerdem noch einen Input, bloß kann ich darauf nicht zugreifen wenn Objekt UND Hintergrundbild im Skript sind
AutoIt
Alles anzeigen#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ie.au3> #Region ### START Koda GUI section ### Form= $formp19 = GUICreate("P19", 480, 270, 694, 228) $pic = GUICtrlCreatePic("C:\Users\plati\Desktop\viv\wallpaper.jpg", 0, 0, 480, 270) $iE = _IECreateEmbedded() GUICtrlCreateObj($iE, -5, -5, 1, 1) _IENavigate($iE, "https://translate.google.com/?hl=de#de/en/") GUISetFont(14, 400, 0, "MS Sans Serif") GUISetBkColor(0xF5F5F5) $input = GUICtrlCreateInput("", 30, 24, 425, 28) GUICtrlSetFont(-1, 11, 400, 0, "Segoe UI Semilight") GUICtrlSetBkColor(-1, 0xFFFFFF) $output = GUICtrlCreateLabel("", 42, 75, 398, 148, $WS_BORDER) GUICtrlSetFont(-1, 14, 400, 0, "Segoe UI Semilight") GUICtrlSetBkColor(-1, 0xFFFFFF) $antwort = GUICtrlCreateButton("Answer", -20, -20, 1, 1) GUICtrlSetFont(-1, 14, 400, 0, "Segoe UI Semilight") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEndWenn ich jedoch das Objekt (guictrlcreateobj) ODER das hintergrundbild(guictrlcreatepic) herausnehme kann ich etwas hineinschreiben. Weiß jemand warum das so ist und wie ich auf den Input zugreifen kann ohne dass ich davon etwas entfernen muss?
-
@alpines Im Notepad werden Leerzeichen angezeigt, also leider auch nichts
-
@alpines Ja mit dem anderen Thema war alles gut aber jetzt ist sowieso alles weg
Und ja, genauso sieht das auch im Editor aus, das war ein Screenshot -
Bevor ich meinen 'Pc neugestartet habe, habe ich natürlich wie immer gespeichert und nach dem Restart sah mein Skript dann so aus, ohne dass ich etwas ändern konnte:
Weiß jemand was das ist und wie ich meinen Skript wiederherstellen kann? Habe nämlich schon ziemlich lange an dem Projekt gearbeitet
-
@alpines Danke ich weiß jetzt bloß noch nicht wie ich die Seite im Hintergrund öffne
-
Ich möchte, dass das Programm mit diesen Befehlen auf irgndeine Seite geht, die Wetter anzeigen lässt. Da das auch mit der Google Suche funktioniert habe ich die Google Suche genommen. Nun weiß ich nicht wie ich die Grad Celsius Anzeige herauslesen kann. So habe ich angefangen:
AutoIt
Alles anzeigen#include <ie.au3> #include <MsgBoxConstants.au3> $ie = ObjCreate("InternetExplorer.Application") With $ie .visible = True .navigate("https://www.google.de/") While($ie.busy) WEnd $search = .document.GetElementById("lst-ib") $search.value = "Wetter Berlin" While($ie.busy) WEnd sleep(2000) $button = .document.getelementbyid("_fZl") $button.click() While($ie.busy) WEnd sleep(2000) $temp = .document.getelementbyid("wob_tm") $tempdata = $temp.GetStyle While($ie.busy) WEnd MsgBox(0, "TEMP","Temperatur ist "&$temp) EndWithIn Zeile 21 habe ich einen Nefehl ausprobiert, den es aber leider nicht gibt. Gibt es eine alternative?
-
-
In einer Funktion soll neben vielen anderen Dingen (die ich hier nicht in den Quellcode hereingeschrieben habe da sie unrelevant sind) an einer Stelle gewartet werden bis eine Taste gedrückt wird bevor es weiter geht. Ich habe so angefangen, das sollte auch eigentlich funktionieren aber die While Schleife wird einfach ignoriert und es geht weiter
AutoIt
Alles anzeigen#include <Misc.au3> HotKeySet("1","start") While 1 sleep(100) WEnd start() Func start() While _IsPressed("1B") Sleep(250) WEnd ConsoleWrite("test") EndFunc -
@Oscar Du hast mir beim letzten Thema geholfen aber bei dieser Sache war es ein anderes Problem
-
@Candyland Vielen, vielen Dank, ich habe mich zwar vorher schon über StringinStr informiert aber dein Beispiel hat exakt das Problem gelöst!
-
Ich möchte, dass jemand in den Input einen Text eingeben kann und das Programm erkennt wenn der Satz ein bestimmtes Wort erhält. Hat da jemand einen Ratschlag, ich habe jetzt schon 1-2 Stunden im Internet gesucht, aber nichts gefunden
-
@Oscar Dankeschön, hat mir weitergeholfen
-
Hallo ich habe ein kleines Problem bei einem Skript. Ich möchte, dass jemand in ein Input einen Text eingeben kann und das Programm darauf antwortet. Angefangen habe ich damit, dass wenn der Benutzer "hallo" schreibt, das Programm "Hey" antwortet. Außerdem möchte ich dass das Programm die Groß-und Kleinschreibung ignoriert. Ich habe den wichtigen Ausschnitt vom Skript hier mal gepostet:
AutoIt
Alles anzeigen$Form1 = GUICreate("database", 507, 502, 838, 141) $input = GUICtrlCreateEdit("", 62, 88, 401, 177) $output = GUICtrlCreateLabel("", 21, 312, 463, 196) GUISetState(@SW_SHOW) While 1 $data = GUICtrlRead($input) If $data = "hallo" Then GUICtrlSetData($output, "Hey") EndIf WEndDer Skript soll den Input scannen und wenn dort "hallo" steht "Hey" in den Output(Für den Output benutze ich ein Label) schreiben, doch das klappt irgendwie nicht. Kann jemand helfen?
-
Hat sich zum Glück erledigt. Ich habe vergessen "HotKeySet" in eine Schleife zu machen.
-
@alpines Ich habe nur die wichtigsten Scripte rausgenommen damit man hier etwas übersichtlicher sieht was ich mit dem Input meine
-
Hey ich habe ein kleines Problem. Ich schreibe derzeit ein Programm bei dem der Benutzer sich den Hotkey für ein Befehl selbst aussuchen soll(In einem GUI mit dem Input). Ich habe so angefangen, was aber leider nicht funktioniert hat:
AutoIt
Alles anzeigen#include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form1", 615, 437, 192, 124) $Input1 = GUICtrlCreateInput("Input1", 160, 88, 225, 21) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $data_Input1 = GUICtrlRead($Input1) HotKeySet($data_Input1,"start")
Kann mir jemand helfen die richtigen Befehle dafür zu finden?
