Beiträge von Schrubber

Aah stimmt

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>

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

#Region ### START Koda GUI section ### Form=
$Enigma = GUICreate("Enigma", 442, 413, 344, 193)
$head = GUICtrlCreateLabel("Enigma", 161, 20, 119, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$title_eingabe = GUICtrlCreateLabel("Eingabe:", 32, 70)
$eingabe = GUICtrlCreateInput("", 32, 88, 385, 89)
GUICtrlSetData(-1, "")
$title_ausgabe = GUICtrlCreateLabel("Ausgabe:", 32, 206)
$ausgabe = GUICtrlCreateEdit("", 32, 224, 385, 89)
GUICtrlSetData(-1, "")
$information1 = GUICtrlCreateLabel("Text to Hex -> codieren", 32, 318)
$information2 = GUICtrlCreateLabel("Hex to Text -> decodieren", 32, 333)
$code = GUICtrlCreateButton("codieren", 36, 356, 121, 25, $WS_GROUP)
$copyright = GUICtrlCreateLabel("Scripted by UWC | Schrubber @ 2009", 8, 392, 184, 17)
$decode = GUICtrlCreateButton("decodieren", 165, 356, 121, 25, $WS_GROUP)
$quit = GUICtrlCreateButton("Quit", 295, 356, 121, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$byte = 1

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $code
GUICtrlSetData($ausgabe, '')
Dim $arstring = StringSplit(GUICtrlRead($eingabe), ''), $str = ''
For $i = 1 To UBound($arstring) -1
$str &= StringUpper(Hex(Asc($arstring[$i]), 2)) & ' '
Next
GUICtrlSetData($ausgabe, $str)

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

Case $decode
GUICtrlSetData($ausgabe, '')
Dim $chstring = StringSplit(GUICtrlRead($eingabe), ''), $str2 = ''
For $ii = 2 To UBound($chstring) -1
$str2 &= StringUpper(ASC(HEX($chstring[$ii], 2))) & ' '
Next
GUICtrlSetData($ausgabe, $str2)

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

Case $quit
Exit
EndSwitch
WEnd

[/autoit]

Das codieren funktioniert perfekt, aber nicht das decodieren.

%windir%\system32\calc.exe

Das ist mein angezeigter Pfad.

Er gibt mir 0 aus, egal was ich eingebe

Er gibt mir 0 aus, egal was ich eingebe

OKay, danke für die Hilfe schonmal.
Nun ist das Tool fertig, was mir den Code als Hex Chiffriert.

Um das aber nun umzukehren, hab ich eig so gedacht:

[autoit]

Case $decode
GUICtrlSetData($ausgabe, '')
Dim $chstring = StringSplit(GUICtrlRead($eingabe), ''), $str2 = ''
For $ii = 2 To UBound($chstring) -1
$str2 &= StringUpper(ASC(HEX($chstring[$ii]), 2)) & ' '
Next
GUICtrlSetData($ausgabe, $str2)

[/autoit]

Aber das funktioniert bei mir nicht, da der mir ausgibt:

Zitat

ERROR: Asc() [built-in] called with wrong number of args.
$str2 &= StringUpper(ASC(HEX :$chstring[$ii]), 2)

Ich weiß nicht, was ich falsch gemacht hab
Er soll mir ja den ASCI Code von dem Hexcode der Variable $chstring ausgeben. Oder sehe ich das falsch?

Okay. Habe nun mal das Fenster gemacht und angeschaut, wie ich das nun mit dem String mache. Dabei bin ich nun soweit:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Enigma = GUICreate("Enigma", 442, 413, 344, 193)
$head = GUICtrlCreateLabel("Enigma", 161, 16, 119, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$title_eingabe = GUICtrlCreateLabel("Text:", 32, 70)
$eingabe = GUICtrlCreateInput("", 32, 88, 385, 89)
GUICtrlSetData(-1, "")
$title_ausgabe = GUICtrlCreateLabel("Hex:", 32, 206)
$ausgabe = GUICtrlCreateEdit("", 32, 224, 385, 89)
GUICtrlSetData(-1, "")
$code = GUICtrlCreateButton("codieren", 36, 336, 121, 25, $WS_GROUP)
$copyright = GUICtrlCreateLabel("Scripted by UWC | Schrubber @ 2009", 8, 392, 184, 17)
$zwischenablage = GUICtrlCreateButton("Zwischenablage", 165, 336, 121, 25, $WS_GROUP)
$quit = GUICtrlCreateButton("Quit", 295, 336, 121, 25, $WS_GROUP)
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]

Case $code
Dim $arstring [StringLen ($eingabe)]
For $i = 0 To UBound ($arstring) - 1
$arstring [$i] = StringMid ($eingabe, $i + 1, 1)
Next
MSGBOX(1, "test", $arstring [0])
Case $quit
Exit

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

EndSwitch
WEnd

[/autoit]

Aber egal, welche Teste ich dort eingebe, gibt er mir unabhängig 5 aus, wenn ich auf das draufdrück.

Hallo Leutz,

Ich wollte mich an eine Dechiffrierungsmaschine begeben.
Jeder kennt ja von euch Enigma, ne?

Okay.
Ich weiß zwar, wie ich das machen werde.

Ein Code besteht bisher noch nicht, nur meine Frage ist nun:

Wie kann ich von einem Text, den ich in ein Eingabefeld eingebe, jeden einzelnen Buchstaben als neuen Arraywert speichern?

Ich habe absolut keine Ahnung, wie ich das machen soll

Ich bedanke mich dann schonmal im vorraus,

Schrubber

Also ich hab auch Windows 7 und muss nur sagen, dass bei mir das Send("{ENTER}") als einziges nicht funktioniert. Aber Texte schreiben usw. funzt.

Jo.

Wobei du ja @DesktopWidth und @DesktopHeight hast, die immer die Pixel unten Rechts sind. Also beispiel 1280, 1024.

Genau in die Mitte:

[autoit]

_MouseTrap(@DesktopHeight/, @DesktopWidth/2, @DesktopHeight/2, @DesktopWidth/2)

[/autoit]

Bzw. für Click:

[autoit]

MouseClick("left", @DesktopHeight/2, @DesktopWidth/2)

[/autoit]

Oder Irre ich mich da? :o

Ahhh Danke
Dachte immer, meine ftp.au3 wäre die neuste und richtige.

Nun funktionierts, als ich die ftp.au3 ausgetauscht habe. Danke!

Genau.

Du pingst Server an, ob Betriebsbereit. Wennw as zurück kommt, dann IST er es.

Im meinem Fall wäre das also so:

[autoit]

#include <ftp.au3>

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

Func _upload()
$server = 'nobody1993.no.ohost.de'
$username = 'nobody1993'
$pass = 'PASSWORT'
$UPLOADFILE= "D:\Users\Schrubber\Eigen\Bilder\Ich.JPG"
$FTPFILENAME= "Ich.jpg"

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

$Open = _FTPOpen('Was hier steht ist egal')
$Conn = _FTPConnect($Open, $server, $username, $pass,1)
$Ftpp = _FtpPutFile($Conn, $UPLOADFILE, $FTPFILENAME)
$Ftpc = _FTPClose($Open)
EndFunc

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

_upload()

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

So steht das da bei mir drin, bis auf das PASSWORT. Das hab ich natürlich geändert.
Das was ihr oben sehr, ist sowieso bekannt. Von daher mach ich mir da keine Sorgen
Wenn ich so nun das Script ausführe, arbeitet es. Ich merke, dass die Console einzelne Schritte macht.

Auf dem Webspace Server aber kommt nichts an.
Die Daten stimmen alle, da ich mich ebenfalls per FileZilla mit genau DIESEM Daten anmelde.

Oder liegt es vielleicht an ohostß Kann mir da jemand einen besseren Webspace-Anbieter geben?`:)

Rubberducky

Wenn das Fenster immer an der gleichen Stelle ist, warum nimst du dann nicht PixelChecksum? nimmst das Areal, wo dieses Willkommen steht als Vorlage und überprüfst innerhalb einer Schleife, ob die PixelChecksum übereinstimmt.

Wie gesagt kA obs funktioniert :O

Jo. Das Script ins Autostart machen.
Hab auch ne kleine Idee, wies funktionieren könnte.
Bin mir aber nicht sicher?

[autoit]

IniWrite("install.ini", "installation", "step", "1")
$i = IniRead("install.ini", "installation", "step","")
while 1

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

switch($i)
case 1:
run("T:\UpdateDVD28092009\Auto\WindowsXP\Winfuture3.16XPSP3-14102009\WinFuture_WinXPsp3_UpdatePack_3.16_Oktober-2009-Vollversion.exe")
blockinput(1)
winwait ("WinFuture Update Pack für Windows XP SP3 (Oktober 2009)")
IniWrite("install.ini", "installation", "step", "2")
sleep(4000)

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

case 2:
controlclick("WinFuture Update Pack für Windows XP SP3 (Oktober 2009)", "Weiter" , "TButton4" )
sleep(2000)
IniDelete("install.ini", "installation")
IniWrite("install.ini", "installation", "step", "3")

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

case 3:
controlclick("WinFuture Update Pack für Windows XP SP3 (Oktober 2009)", "Ich stimme zu" , "TRadioButton2" )
sleep(2000)
IniDelete("install.ini", "installation")
IniWrite("install.ini", "installation", "step", "4")

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

case 4:
controlclick("WinFuture Update Pack für Windows XP SP3 (Oktober 2009)", "Weiter" , "TButton3" )
sleep(2000)
IniDelete("install.ini", "installation")
IniWrite("install.ini", "installation", "step", "5")

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

case 5:
controlclick("WinFuture Update Pack für Windows XP SP3 (Oktober 2009)", "Automatisch" , "TRadioButton2" )
sleep (1000)
IniDelete("install.ini", "installation")
IniWrite("install.ini", "installation", "step", "6")

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

case 6:
controlclick("WinFuture Update Pack für Windows XP SP3 (Oktober 2009)", "Weiter" , "TButton3" )
sleep (500)
IniDelete("install.ini", "installation")
IniWrite("install.ini", "installation", "step", "7")

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

case 7:
WinSetTitle("WinFuture Update Pack für Windows XP SP3 (Oktober 2009)", "" , "Installation123")
IniDelete("install.ini", "installation")
IniWrite("install.ini", "installation", "step", "8")
winwait ("Neu starten")
controlclick ("Neu starten" , "Jetzt neu starten" , "TButton1")

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

case 8:
WinWaitclose("Installation123")
sleep (2000)
IniDelete("install.ini", "installation")
IniWrite("install.ini", "installation", "step", "9")

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

case 9:
controlclick("WinFuture Update Pack für Windows XP SP3 (Oktober 2009)", "Jetzt nicht neu starten", "TCheckBox1" )
sleep (1000)
controlclick("WinFuture Update Pack für Windows XP SP3 (Oktober 2009)", "Beenden" , "TButton2" )
blockinput (0)
IniDelete("install.ini", "installation")
IniWrite("install.ini", "installation", "step", "10")

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

default:
MsgBox(1, "Error", "An Error occured. Please reinstall the Application.")

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

EndSwitch

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

if($i = 10) Then
FileDelete("install.ini")
MSGBox(1, "Installation was Successful", "Your Installation is successfully completed.")
Exit
EndIf

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

WEnd

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

Stimmt gute Idee

Frage am Anfang, ob Sprache 1 oder 2.
$lang = 1 (oder 2)
Einen Titel z.B:

[autoit]

$GUI = GUICreate($titlelang, 630, 451, 407, 267)

[/autoit]

Dann hier:

[autoit]

if ($lang = 1) then
$titlelang = "Beispiel"
EndIf

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

if ($lang = 2) then
$titlelang = "Example"
EndIf

[/autoit]

So schwer is das net
brauchst halt das ganze Script 2x XD

Das was mir nur einfällt is:

Eine Abfrage an anfang machen:

Language? Englisch oder Thai

Und für jeden Fall eine eigene GUI, welche dann im Case steht?

Hallo ihr

Ich hab hier ein kleinen Test gemacht:

Das ist das Programm, welches ich ausführe:

[autoit]

#include <ftp.au3>

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

Func _upload()
$server = 'Server'
$username = 'Username'
$pass = 'Password'
$UPLOADFILE= "Pfad"
$FTPFILENAME= "EndName"

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

$Open = _FTPOpen('Was hier steht ist egal')
$Conn = _FTPConnect($Open, $server, $username, $pass)
$Ftpp = _FtpPutFile($Conn, $UPLOADFILE, $FTPFILENAME)
$Ftpc = _FTPClose($Open)
EndFunc

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

_upload()

[/autoit]

Die FTP.au3 liegt in dem Verzeichnis, wo auch mein Script liegt.
Mir wird kein Error ausgegeben, dennoch zieht er die Datei nicht drauf

Was ist mein Fehler?
Die Daten sind alle richtig, da ich sie per FileZilla ja auch benütz und es dort funktioniert!

Rubberducky

Viele Leute nutzen den Internet Exlorer nur, weil sie von Anfang an ihn nutzen mussten und es eine Gewöhnungssache ist und sie kB mehr drauf haben, sich einen neuen Browser anzuschauen.
Ich nutze nun seit 1nemn Jahr den Mozilla Firefox, da der IE in meinen Augen der größt mist ist. Über Fehler beim Druckversuch, hinweg über massig Sicherheitslücken (Damals zumindest), bis hin zum Design und vieles weitere ist schlecht.