Beiträge von Freaky

BUMP habe mein Thread oben Ediert

Hallo,
in meinem Script wird das Bild nicht angezeigt warum ?

Code + PW ist schon richtig

Ich habe IE 8 und bei mir klapt es supper.
Aber auf meinem PC da habe ich IE 6 oder so aber nicht IE 8 und es liest was anderes aus.
Ok alles geht bis es anzeigt wie viel Euro auf der PSC ist.
Dann stürtz es ab weil es was ausliest was es nicht auslesen kann weil _Stringbetween was anderes zum suchen hat.
Bitte um Hilfe

Ah danke
Jetz habe ich das problem das ich den Roten text nicht auslesen kann wen man was falsch eingegeben hat

Hallo,
mein Script soll auf der Seite die angezeigt wird auf Weiter klicken. Aber das macht es nicht aber sonst funktioniert bis jetzt alles

Spoiler anzeigen

[autoit]

#include <IE.au3>
#include <String.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

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

Global $pin[5]

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

_IEErrorHandlerRegister()
$lade_1 = _IECreateEmbedded()

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

#Region ### START Koda GUI section ### Form=
;$Form1 = GUICreate("", 317, 240, 394, 345)
$Form1 = GUICreate("", 900, 500)
$Group1 = GUICtrlCreateGroup("Code", 8, 0, 161, 73)
$Input1 = GUICtrlCreateInput("0000-0000-0000-0000", 48, 16, 113, 21)
$Label1 = GUICtrlCreateLabel("Code:", 16, 16, 32, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Passwort?", 56, 48, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Passwort", 176, 0, 137, 73)
$Label2 = GUICtrlCreateLabel("Passwort:", 216, 16, 50, 17)
$Input2 = GUICtrlCreateInput("", 184, 40, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Captcha", 8, 80, 185, 129)
$Pic1 = GUICtrlCreatePic(@TempDir & "\captcha.jpeg", 16, 96, 170, 75)
$Input3 = GUICtrlCreateInput("", 16, 176, 169, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Code testen", 200, 88, 107, 25, $WS_GROUP)
$Label3 = GUICtrlCreateLabel("Bitte warten ...", 8, 216, 300, 17)
$seite = GUICtrlCreateObj($lade_1, 328, 8, 492, 444)
_IENavigate($lade_1, "https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet")
FileDelete(@TempDir & "\captcha.jpeg")
InetGet("https://customer.cc.at.paysafecard.com/seam/resource/captcha", @TempDir & "\captcha.jpeg")
GUICtrlSetImage($Pic1, @TempDir & "\captcha.jpeg")
GUICtrlSetData($Label3, "Fertig")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Label3, "Bitte warten ............")
$string = StringSplit(GUICtrlRead($Input1), "-")
$oForm = _IEFormGetObjByName($lade_1, "j_id17")
For $a = 1 To 4
$pin[$a] = _IEFormElementGetObjByName($oForm, "j_id17:rn" & $a)
_IEFormElementSetValue($pin[$a], $string[$a])
Next
$captcha = _IEFormElementGetObjByName($oForm, "j_id17:verifyCaptcha")
_IEFormElementSetValue($captcha, GUICtrlRead($Input3))
$oSubmit = _IEGetObjByName($oForm, "submit")
_IEAction($oSubmit, "click")
$lala = _IEFormSubmit($oForm)
$body = _IEBodyReadHTML($lade_1)
$string2 = _StringBetween($body, '<span class="error">', '. Bitte &uuml;berpr&uuml;fen')
_ArrayDisplay($string2)
If IsArray($string2) Then
If $string2[0] = "Bei Ihrem PIN-Code und/oder Passwort ist ein Fehler aufgetreten" Then
MsgBox(0, "ERROR", "Bei Ihrem PIN-Code und/oder Passwort ist ein Fehler aufgetreten")
EndIf
EndIf
GUICtrlSetData($Label3, "Fertig")
FileDelete(@TempDir & "\captcha.jpeg")
InetGet("https://customer.cc.at.paysafecard.com/seam/resource/captcha", @TempDir & "\captcha.jpeg")
GUICtrlSetImage($Pic1, @TempDir & "\captcha.jpeg")
EndSwitch
WEnd

[/autoit]

Achso danke

danke aber das löscht ja nicht die Sektion sondern nur den Key

Hallo,
wie kann ich in einer *.ini eine agnze Sektion + Key + Value löschen ?

Ich habe jetz einfach ein Bild drübergelegt so das man die Cechboxen nicht mer benutzen kann

Danke, die UDF ist einfach klasse.
Nur meien Tabs sind leider rechts und nicht oben
Was jetz ?

Ist es möglich ein Tab nicht oben zu erstellen sondern links so wie bei Coda und das der Text dann auch Schreg ist ?

Ihr immer mit eurem "zeig mal das Script"

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 192, 124)
$Tab1 = GUICtrlCreateTab(16, 16, 481, 345)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$Button2 = GUICtrlCreateButton("Button2", 72, 88, 75, 25, $WS_GROUP)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$Button3 = GUICtrlCreateButton("Button3", 88, 96, 75, 25, $WS_GROUP)
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$Button1 = GUICtrlCreateButton("Button1", 64, 104, 75, 25, $WS_GROUP)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

EndSwitch
WEnd

[/autoit]

Hallo,
wie krige ich hin das man im Tab nichts mehr machen kann ?
Es ist egal ob ausbelden oder nur DISABLE machen.
Wen ich $Tab1 ausblende dann werden nur die Tabsheets ausgeblendet und der Inhalt bleibt.
Und wen ich die Tabseehts ausblenede dann passiert nichts.
Und wen ich bei den Tabsheets DISABLE mache dann kann ich die Tabs nur nicht tauschen bzw. auswählen. Aber der Inhalt bleibt sichtbar und ich kann alle Buttons etc. anklicken.
Wie krige ich das nun hin ohne GUICtrlDelet
mfg Freaky

Danke klapt supper

Greek
sry habe ich überlesen

Das ist doch egal.
Ich will das es bei mir angezeigt wird egal ob es DISABLE oder ENABLE ist.
Wie krige ich das nung hin ?

Ich will aber das ein Tip angezeigt wird
Wie krige ich das hin ?

Hallo,
wieso funktioniert GUICtrlSetTip nicht bei einem Input was den Status hat $GUI_DISABLE ?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 409, 247, 192, 124)
GUICtrlSetTip (-1,"Form")
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 121, 21)
GUICtrlSetTip (-1,"Input1")
$Input2 = GUICtrlCreateInput("Input2", 264, 144, 121, 21)
GUICtrlSetTip (-1,"Input2")
GUICtrlSetState (-1,$GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Button1", 136, 8, 75, 25)
GUICtrlSetTip (-1,"Button1")
$Edit1 = GUICtrlCreateEdit("", 8, 40, 185, 89)
GUICtrlSetData(-1, "Edit1")
GUICtrlSetTip (-1,"Edit1")
$Group1 = GUICtrlCreateGroup("Group1", 216, 8, 185, 105)
GUICtrlSetTip (-1,"Group1")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$List1 = GUICtrlCreateList("", 8, 136, 121, 97)
GUICtrlSetTip (-1,"List")
$Pic1 = GUICtrlCreatePic("", 144, 136, 100, 100)
GUICtrlSetTip (-1,"Pic")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

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

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

EndSwitch
WEnd

[/autoit]

mfg Freaky

wen kein www. dabei ist dann soll die msg kommen
wen ein www. kommt dann shelexecut

Hallo,
wieso geht das nicht?

[autoit]

$test = " haha xD| lol | xD"
$string = StringInStr ($test,"www.")

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

_button ($test,2)

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

Func _button($text,$zeile)
$string = StringSplit($text, "|")
ConsoleWrite ($string[$zeile])
$instr = StringInStr($string[$zeile], "www.")
ConsoleWrite ($instr)
If $instr <> 0 Then
MsgBox(0, "", $string[$zeile])
Else
ShellExecute($string[$zeile])
EndIf
EndFunc ;==>_button

[/autoit]

das geht nur wen ich das so mache

[autoit]

$test = " haha xD| lol | xD"
$string = StringInStr ($test,"www.")

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

_button ($test,2)

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

Func _button($text,$zeile)
$string = StringSplit($text, "|")
ConsoleWrite ($string[$zeile])
$instr = StringInStr($string[$zeile], "www.")
ConsoleWrite ($instr)
If $instr <> 1 Then
MsgBox(0, "", $string[$zeile])
Else
ShellExecute($string[$zeile])
EndIf
EndFunc ;==>_button

[/autoit]

aber wiederum wen ein www. drinne ist und an der ersten stelle dann gehts wieder nicht
pls helfen

Danke klapt supper

list view