Beiträge von i2c

i2c

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Mailadressen", 345, 254, 302, 218)
;~ GUISetIcon("D:\007.ico")
$ListBox1 = GUICtrlCreateList("", 8, 8, 137, 201, BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL))
GUICtrlSetData(-1, "test@mail.de|[email='monster@mail.de'][/email]|autoit@mail.de")

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

$Button1 = GUICtrlCreateButton(">>", 156, 15, 30, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("<<", 157, 81, 31, 25, $WS_GROUP)

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

$ListBox2 = GUICtrlCreateList("", 200, 8, 137, 201)
GUICtrlSetState(-1, $GUI_FOCUS)
$Button3 = GUICtrlCreateButton("&OK", 104, 225, 75, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("&Cancel", 184, 225, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $Button1
$aIndex = _GUICtrlListBox_GetSelItems($ListBox1)
If $aIndex[0] > 0 Then
For $i = $aIndex[0] To 1 Step -1
$sText = _GUICtrlListBox_GetText($ListBox1, $aIndex[$i])
_GUICtrlListBox_DeleteString($ListBox1, $aIndex[$i])
_GUICtrlListBox_AddString($ListBox2, $sText)
Next
EndIf
Case $msg = $Button2
GUICtrlSetData($ListBox2, "")
Case $msg = $Button3
MsgBox(0, "", "Mailadressen")
Case $msg = $Button4
MsgBox(0, "", "Ende", 2)
Exit
EndSelect
WEnd

[/autoit]

i2c

Wo liegt das Problem?
Session starten und dann einfach mal folgendes in's Putty Terminal eingeben:

Code

Get / HTTP/1.1
Host:www.google.de

2mal Enter drücken ;).

edit: Um nochmal kurz zu zeigen wohin die Parameter gehören, ein Beispiel anhand von autoit.de

Code

Get /ndex.php?page=Forumrules HTTP/1.1
Host:www.autoit.de

i2c

Nein, es liegt daran das der String dort mit Ziffern beginnt.
Entfern das \d+ aus dem Pattern und versuch's nochmal.

i2c

Zitat von MrB

Wenn man bei i2c´s Script z.B. den Suchstring "kein Welt" eingibt, ergibt sich ein Treffer für Welt.

Ich darf mal kurz zitieren: "...muss die zu suchenden Wörter dann in ene InputBox eingeben z.B. "*peep* Funktion".
Es soll also nach "*peep*" und nach "Funktion" gesucht werden, ohne Groß/Kleinschreibung zu beachten und alles unter Flag=0 (Rückgabe 0 oder 1)."

Das liest sich für mich aber anders.

i2c

Er möchte lediglich die in der Inputbox eingegebenen Worte im Text auf Existenz prüfen.

schnelles Beispiel

[autoit]

#region - Timestamp
;2011-05-02 20:43:24
#endregion - Timestamp

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
Opt("GUIOnEventMode", 1)

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

$sString = "Hallo Welt! Das ist ein Teststring"

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

$Form1 = GUICreate("Form1", 307, 74, 228, 148)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 201, 21)
$Button1 = GUICtrlCreateButton("Button1", 216, 8, 75, 25)
GUICtrlSetOnEvent(-1, "_check")
$Label1 = GUICtrlCreateLabel("Label1", 8, 40, 284, 17)
GUISetState(@SW_SHOW)

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

While 1
Sleep(100)
WEnd

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

Func _check()
Local $aResult[1] = [0]
$aWords = StringSplit(GUICtrlRead($Input1), " ")
For $i = 1 To $aWords[0]
If StringInStr($sString, $aWords[$i]) Then
_ArrayAdd($aResult, $aWords[$i])
EndIf
Next
If UBound($aResult) > 1 Then
GUICtrlSetData($Label1, "Treffer für: " & StringTrimLeft(_ArrayToString($aResult), 2))
EndIf
EndFunc ;==>_check

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

Func _exit()
Exit
EndFunc ;==>_exit

[/autoit]

i2c

Hab nochmal editiert. War ein kleiner Fehler drin, weshalb sich der Button nicht deaktivierte/aktivierte.

i2c

Spoiler anzeigen

[autoit]

#region - Timestamp
;2011-05-02 20:12:18
#endregion - Timestamp

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include<file.au3>
#include<array.au3>
#include<ie.au3>
#include<string.au3>

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

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("SMS Writer", 271, 301, 240, 144)
GUISetBkColor(0xD4D0C8)
$Nummer = GUICtrlCreateInput("Nummer:", 10, 10, 250, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL))
$Text = GUICtrlCreateEdit("", 10, 40, 250, 190, BitOR($ES_CENTER, $ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetData(-1, "Text")
$ButtonStart = GUICtrlCreateButton("Start", 10, 265, 100, 25, $WS_GROUP)
$ButtonEnde = GUICtrlCreateButton("Ende", 160, 265, 100, 25, $WS_GROUP)
$Zaehler = GUICtrlCreateLabel("4", 90, 240, 26, 17)
$Label2 = GUICtrlCreateLabel("/ 160 Zeichen", 120, 240, 72, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

GUIRegisterMsg($WM_COMMAND, "MY_WM_COMMAND")

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonEnde
Exit
EndSwitch
WEnd

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

Func MY_WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
Local $nNotifyCode = BitShift($wParam, 16)
Local $hCtrl = $lParam
Local $hEdit = $Text
If Not IsHWnd($hEdit) Then $hEdit = GUICtrlGetHandle($Text)
ConsoleWrite($nNotifyCode & @CRLF)
If ($nNotifyCode = 1024 Or $nNotifyCode = 786) And $hCtrl = $hEdit Then
$smslaenge = StringLen(GUICtrlRead($Text))
GUICtrlSetData($Zaehler, $smslaenge)
If $smslaenge >= 160 And GUICtrlGetState($ButtonStart) = 80 Then ;wenn text über 160 setze zähler rotund blocke start
GUICtrlSetColor($Zaehler, 0xff0000)
GUICtrlSetState($ButtonStart, $GUI_DISABLE)
EndIf
If $smslaenge <= 160 And GUICtrlGetState($ButtonStart) = 144 Then; wenn text unter 160 setze alles wieder zurück
GUICtrlSetColor($Zaehler, 0x000000)
GUICtrlSetState($ButtonStart, $GUI_ENABLE)
EndIf
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_COMMAND

[/autoit]

edit: Kleinen Fehler behoben. Jetzt sollte es klappen.

i2c

Spoiler anzeigen

[autoit]

#Region - Timestamp
;2011-05-02 19:45:36
#EndRegion - Timestamp

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

#include <array.au3>
$string = '<td>24/7 1</td>' & @CRLF & _
' <td style="text-align: center;">17</td>' & @CRLF & _
' <td style="text-align: right;">-25.884498,-185.868988,1003.546875</td>' & @CRLF & _
' <td><a href="http://weedarr.wikidot.com/local--files/interior/247.jpg"><img src="interior-Dateien/thumbnail_069.jpg" alt="247.jpg" class="image"></a></td>' & @CRLF & _
' </tr>' & @CRLF & _
' <tr>' & @CRLF & _
' <td>24/7 2</td>' & @CRLF & _
' <td style="text-align: center;">10</td>' & @CRLF & _
' <td style="text-align: right;">6.091179,-29.271898,1003.549438</td>' & @CRLF & _
' <td><a href="http://weedarr.wikidot.com/local--files/interior/247-2.jpg"><img src="interior-Dateien/thumbnail_020.jpg" alt="247-2.jpg" class="image"></a></td>' & @CRLF & _
' </tr>'

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

$aResult = StringRegExp($string, '(?s)<td>(\d+.*?)</td>(?:.*?)center;">(\d+)</td>(?:.*?)right;">(.*?)</td>(?:.*?)alt="(.*?)\.jpg', 4, 1)

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

Dim $aData[UBound($aResult)][4]
For $i = 0 To UBound($aResult) - 1
$aDummy = $aResult[$i]
$aData[$i][0] = $aDummy[1]
$aData[$i][1] = $aDummy[2]
$aData[$i][2] = $aDummy[3]
$aData[$i][3] = $aDummy[4]
Next

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

_ArrayDisplay($aData)

[/autoit]

i2c

Nein, nicht wirklich.

Wie wär's wenn du mal das zeigst, was du bereits hast?

PS: Beim nächsten mal bitte in Hilfe&Unterstützung posten.

edit: Wenn ein Beitrag mitten im Thjema editiert wird, sieht der Nachfolgende meist ziemlich .... blöd aus

i2c

[autoit]

MsgBox(0,0,GUICtrlRead($input1)+GUICtrlRead($input2))

[/autoit]

i2c

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

$gui1 = GUICreate("GUI-1", 259, 46)
$Button1_1 = GUICtrlCreateButton("zu GUI-1", 8, 8, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2_1 = GUICtrlCreateButton("zu GUI-2", 88, 8, 75, 25, $WS_GROUP)
$Button3_1 = GUICtrlCreateButton("zu GUI-3", 168, 8, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

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

$gui2 = GUICreate("GUI-2", 259, 46)
$Button1_2 = GUICtrlCreateButton("zu GUI-1", 8, 8, 75, 25, $WS_GROUP)
$Button2_2 = GUICtrlCreateButton("zu GUI-2", 88, 8, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button3_2 = GUICtrlCreateButton("zu GUI-3", 168, 8, 75, 25, $WS_GROUP)
GUISetState(@SW_HIDE)

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

$gui3 = GUICreate("GUI-3", 259, 46)
$Button1_3 = GUICtrlCreateButton("zu GUI-1", 8, 8, 75, 25, $WS_GROUP)
$Button2_3 = GUICtrlCreateButton("zu GUI-2", 88, 8, 75, 25, $WS_GROUP)
$Button3_3 = GUICtrlCreateButton("zu GUI-3", 168, 8, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_HIDE)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2_1
GUISetState(@SW_HIDE, $gui1)
GUISetState(@SW_SHOW, $gui2)
Case $Button3_1
GUISetState(@SW_HIDE, $gui1)
GUISetState(@SW_SHOW, $gui3)
Case $Button1_2
GUISetState(@SW_HIDE, $gui2)
GUISetState(@SW_SHOW, $gui1)
Case $Button3_2
GUISetState(@SW_HIDE, $gui2)
GUISetState(@SW_SHOW, $gui3)
Case $Button1_3
GUISetState(@SW_HIDE, $gui3)
GUISetState(@SW_SHOW, $gui1)
Case $Button2_3
GUISetState(@SW_HIDE, $gui3)
GUISetState(@SW_SHOW, $gui2)
EndSwitch
WEnd

[/autoit]

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

Opt("GUIOnEventMode", 1)

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

$gui1 = GUICreate("GUI-1", 259, 46)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
$Button1 = GUICtrlCreateButton("zu GUI-1", 8, 8, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("zu GUI-2", 88, 8, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_show2")
$Button3 = GUICtrlCreateButton("zu GUI-3", 168, 8, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_show3")
GUISetState(@SW_SHOW)

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

$gui2 = GUICreate("GUI-2", 259, 46)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
$Button1 = GUICtrlCreateButton("zu GUI-1", 8, 8, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_show1")
$Button2 = GUICtrlCreateButton("zu GUI-2", 88, 8, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("zu GUI-3", 168, 8, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_show3")
GUISetState(@SW_HIDE)

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

$gui3 = GUICreate("GUI-3", 259, 46)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
$Button1 = GUICtrlCreateButton("zu GUI-1", 8, 8, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_show1")
$Button2 = GUICtrlCreateButton("zu GUI-2", 88, 8, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent(-1, "_show2")
$Button3 = GUICtrlCreateButton("zu GUI-3", 168, 8, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_HIDE)

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

While 1
Sleep(100)
WEnd

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

Func _show1()
GUISetState(@SW_HIDE, $gui2)
GUISetState(@SW_HIDE, $gui3)
GUISetState(@SW_SHOW, $gui1)
EndFunc ;==>_show1

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

Func _show2()
GUISetState(@SW_HIDE, $gui1)
GUISetState(@SW_HIDE, $gui3)
GUISetState(@SW_SHOW, $gui2)
EndFunc ;==>_show2

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

Func _show3()
GUISetState(@SW_HIDE, $gui1)
GUISetState(@SW_HIDE, $gui2)
GUISetState(@SW_SHOW, $gui3)
EndFunc ;==>_show3

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

Func _exit()
Exit
EndFunc ;==>_exit

[/autoit]

i2c

Spoiler anzeigen

[autoit]

#Region - Timestamp
;2011-05-01 16:21:03
#EndRegion

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

#include <IE.au3>
$sText = 'test'

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

$oIE = _IECreate ("http://autoit.de")
$oText = _IEGetObjById ($oIE, "searchinput")
$oSubmit = _IEGetObjById($oIE, "searchSubmit")

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

_IEFormElementSetValue ($oText, $sText)
_IEAction($oSubmit, "click")

[/autoit]

i2c

Ich weiss garnicht was du hast. Der Code da oben funktioniert doch.
Case $msg = $GUI_EVENT_CLOSE Or $gameover = 1 bewirkt genau das selbe wie deine If Bedingung.

i2c

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <Timers.au3>
#include <Misc.au3>
#include <Array.au3>

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

Opt('MustDeclareVars', 1)

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

Global $msg
Global $inGame = False
Global $mainGUI
Global $gameGUI
Global $playButton
Global $timer
Global $timeLeftLabel
Global $timeLeft = 5
Global $gameover = 0
HotKeySet("{Esc}", "captureEscape")

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

main()

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

Func main()
$inGame = False

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

$mainGUI = GUICreate("main", 150, 100)

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

$playButton = GUICtrlCreateButton("spiel", 15, 25, 50, 35)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $playButton
GUIDelete($mainGUI)
$inGame = True
spiel()
EndSelect
WEnd
EndFunc ;==>main

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

Func spiel()
$gameover = 0
$gameGUI = GUICreate("spiel", 300, 300)
$timeLeftLabel = GUICtrlCreateLabel($timeLeft, 70, 100, 24, 22)

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

GUISetState()

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

$timeLeft = 5
$timer = _Timer_SetTimer($gameGUI, 1000, "timerCountdown")

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $gameover = 1
If $inGame = True Then
$timeLeft = 5
_Timer_KillTimer($gameGUI, $timer)
GUIDelete($gameGUI)
main()
Else
Exit
EndIf
EndSelect
WEnd
EndFunc ;==>spiel

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

Func timerCountdown($hWnd, $msg, $iIDTimer, $dwTime)
$timeLeft -= 1
GUICtrlSetData($timeLeftLabel, $timeLeft)
If $timeLeft = 0 Then
GUICtrlSetData($timeLeftLabel, "0")
_Timer_KillTimer($gameGUI, $timer)
MsgBox(0, "", "zu Ende")
$gameover = 1
EndIf
EndFunc ;==>timerCountdown

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

Func captureEscape()
If $inGame = True Then
$timeLeft = 5
_Timer_KillTimer($gameGUI, $timer)
GUIDelete($gameGUI)
main()
Else
Exit
EndIf
EndFunc ;==>captureEscape

[/autoit]

i2c

wie wäre es mit einem zusammenhängenden, funktionierenden Beispiel?
Ich mag nicht rätselraten, wie dein Skript möglicherweise aussehen könnte.

i2c

GUIs muss man nicht löschen, man kann sie auch einfach verstecken

[autoit]

GUISetState(@SW_HIDE, $hWnd)

[/autoit]

i2c

http://translation.autoit.de/onlinehilfe/gu…OnEventMode.htm

i2c

Ja, und nu? Du musst mich jetzt nicht über die Funktion von AdlibRegister() belehren.
Das ein Skriptablauf bis zum Abschluss einer Funktion unterbrochen wird, ist mir bekannt.
Das hat aber primär erstmal nix mit AdlibRegister zu tun, sondern passiert genauso bei
einem "händischen" Funktionsaufruf.

Wie gesagt: Rekursion entfernen und die Funktion ein wenig anpassen. Wenn du wenigstens
mal dein aktuelles Skript gepostet hättest ...

i2c

Du hast natürlich auch den rekursiven Teil

[autoit]

if $connection <> 0 Then
sleep(2000);
_client()
EndIf

[/autoit]

entfernt und deine Funktion ein wenig auf die neuen Gegebenheiten angepasst?
Schau dir in der Hilfe an, was AdlibRegister tut.

i2c

Du rufst die Funktion _client() immer wieder in sich selbst auf. Dadurch wir dein Messageloop nicht weiter ausgeführt und die GUI wird unbrauchbar.

Vlt. hilft dir AdlibRegister().

Beiträge von i2c

GUICtrlCreateList auslesen

HTTP Protokoll mit Putty

Problem mit HTML & AutoIt

StringRegExp Frage

StringRegExp Frage

GUI blinkt..

GUI blinkt..

Problem mit HTML & AutoIt

Rechnen?

Rechnen?

Durch Button neues GUI-Fenster öffnen

IE.au3 Input ersetzen

Mehrere GUIs in Funktionen -> Problem mit Timer(?)

Mehrere GUIs in Funktionen -> Problem mit Timer(?)

Mehrere GUIs in Funktionen -> Problem mit Timer(?)

Mehrere GUIs in Funktionen -> Problem mit Timer(?)

cmd client

cmd client

cmd client

cmd client