Hallo forum und zwar habe ich vor für name22 ein Ideengenerator zubauen
Ehm bei dem einem Text , ist der Text über der Edit box.
Also nicht mehr zulesen ... wie könnte ich das ändern ?
Habe schon versucht in Koda den Style irgendwie zu ändern klappte auch net so
http://generator.the-franky.de/
In dem Tool wird auch noch ein Eintrag folgen.
AutoIt
; Sonstiges
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <string.au3>
#include <Array.au3>
#include <INet.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$suche = GUICtrlCreateInput("In bearbeitung", 8, 16, 121, 21)
$random_b = GUICtrlCreateButton("Random", 24, 48, 75, 25, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("", 152, 24, 457, 401, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN))
GUICtrlSetData(-1, "edit1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $random_b
_Random()
EndSwitch
WEnd
Func _Random()
$Source = _INetGetSource("http://generator.the-franky.de/ideen.php")
$idee = _StringBetween($Source, "<!--Idee-->", "<!--#ende-->") ; idee
$mail = _StringBetween($Source, 'Mail:', '<br>') ; mail
$name= _StringBetween($Source, 'Name: <b>', '</b>') ; name
$random = Random(0, UBound($idee) - 1, 1)
GUICtrlSetData($Edit1,"Author: " & $name[$random] & @CRLF & "Kontakt: " &$mail[$random] & @CRLF & @CRLF & "Idee:" & @CRLF &$idee[$random])
EndFunc
Alles anzeigen