Bei mir funktioniert es wenn ich:
- Die .dll im C:\Windows\SysWOW64 Ordner habe
- Die Include-Datei im Include Ordner habe(Kann bestimmt auch wo anders liegen)
- Das Bild im selben Verzeichnis (Kann aber bestimmt auch wo anders liegen)
- Und nicht mit F5 ausführe sondern die Datei speicher und Rechtsklick auf die Datei(.au3) -> Run Script (x86)
Das gibt es.
Scite -> Tools -> AU3Recorder
Hoffe sowas suchts du 
So ist es kürzer.
[autoit]Func _reverse($sString)
Local $sNewString=""
For $i=StringLen($sString) to 1 Step -1
$sRight=StringRight($sString, 1)
$sString=StringTrimRight($sString, 1)
$sNewString &= $sRight
Next
Return $sNewString
EndFunc
€dit: Sorry is doch nich das gleiche.
Hatte nich gesehen das du alle schritte zum umgekehrten string mit ausbist.
In dem script von Seubo fehlt der Befehl
[autoit]_GDIPlus_Startup()
[/autoit]an anfang und der Befehl
[autoit]_GDIPlus_Shutdown()
[/autoit]am Ende
Hilft das Vielleicht?
[autoit]IniReadSectionNames()
[/autoit]Hi,
meine Freundin bat mich ein etwas in die Tage gekommenes Kochbuch zu digitalisieren.... Einfaches einscannen hätte ihr gereicht.
Aber ich habe mir gedacht das ich doch aus den eingescannten Bildern eine .pdf datei machen könnte.
Dann kam mir der Gedanke das ich doch auch in anderen PDF-Dateien Suchen kann.
Nun stellt sich mir die Frage kann ich das auch für meine Dokumente machen?
Ich bin mir ziemlich sicher das wenn ich einfach eine PDF daraus mache man nicht darin suchen kann.(Alt-Deutsche Schrift)
Muss ich dann eine Font erstellen die zu der Schrift in dem Buch passt?
Ich schiebe euch mal eine Seite hoch damit ihr mal seht wovon ich überhaupt rede.
[Blockierte Grafik: http://dl.dropbox.com/u/9313778/Doktor%20Oetker%20014.png]
Kann man das nich auch schöner über Run machen?
Ich habs jetzt so gemacht.
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#RequireAdmin
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AreoSwitch", 122, 180, -1, -1, BitAND($WS_POPUP, $WS_BORDER), $WS_EX_TOPMOST)
$Button1 = GUICtrlCreateButton("Aero An", 2, 1, 121, 49, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Aero Aus", 2, 1 + 49, 121, 49, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Schließen", 2, 1 + 49 + 49, 121, 49, $WS_GROUP)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
Exit
Case $Button1
Run(@ComSpec & " /c net start uxsms", @SystemDir, @SW_HIDE)
Case $Button2
Run(@ComSpec & " /c net stop uxsms", @SystemDir, @SW_HIDE)
EndSwitch
WEnd
Das interessiert mich doch mal Oscar
würdest du mir denn deine Lösung einmal zeigen?
Oh man danke Progandy
was so ein kleines "=" doch ausmacht 
#include<array.au3>
$sString = "Dies ist ein Test."
$sPassword = "Test Passwort"
$crypt = _crypt_myown($sString, $sPassword)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$decrypt = _decrypt_myown($crypt, $sPassword)
ConsoleWrite("Crypt:"&$crypt&@CRLF)
ConsoleWrite("DeCrypt:"&$decrypt&@CRLF)
Func _crypt_myown($sString, $sPassword)
$aPassword = StringSplit($sPassword, "")
For $i = 1 To $aPassword[0]
$aPassword[$i] = Asc($aPassword[$i])
Next
$aString = StringSplit($sString, "")
For $i = 1 To $aString[0]
$aString[$i] = Asc($aString[$i])
Next
$sCrypt_String = ""
$o = 1
For $i = 1 To $aString[0]
$iAsc = $aString[$i] + $aPassword[$o]
If $iAsc > 255 Then $iAsc -= 255
$sCrypt_String &= Chr($iAsc)
$o += 1
If $o > $aPassword[0] Then $o = 1
Next
Return $sCrypt_String
EndFunc ;==>_crypt_myown
Func _decrypt_myown($sString, $sPassword)
$aPassword = StringSplit($sPassword, "")
For $i = 1 To $aPassword[0]
$aPassword[$i] = Asc($aPassword[$i])
Next
$aString = StringSplit($sString, "")
For $i = 1 To $aString[0]
$aString[$i] = Asc($aString[$i])
Next
$sDeCrypt_String = ""
$o = 1
For $i = 1 To $aString[0]
$iAsc = $aString[$i] - $aPassword[$o]
If $iAsc < 0 Then $iAsc += 255
$sDeCrypt_String &= Chr($iAsc)
$o += 1
If $o > $aPassword[0] Then $o = 1
Next
Return $sDeCrypt_String
EndFunc ;==>_decrypt_myown
Wenn ich aber zu, Beispiel den Buchstaben "z" im Passwort habe mit dem wert "122"
Und im Text habe ich den Buchstben "©" mit dem Wert "169"
dann sollen die beiden Werte zusammen gerechnet werden, da das aber mehr als 255 sind (291) Muss man um überheupt einen Buchstaben zu bekommen wieder in den Bereich von 0-255 kommen
Also wird -255 gerechnet. (36)
Und da der Buchstabe ja wieder mit dem selben Buchstaben aus dem Passwort entschlüsselt wird muss man dann wieder 36 - 169 rechnen. (133)
Weil die Zahl aber wieder Negativ ist und wieder nicht im Bereich von 0-255 liegt soll dann wieder +255 gerechnet werden.(122)
Damit wären wir wieder bei 122 ("z")
Ich hab den Thread zum verschlüsseln gefunden und hab mir gedacht daas ich auch mal mein Glück versuche. Jedoch ohne am Wettbewerb teilzunehmen.
$sString = "Dies ist ein Test."
$sPassword = "Test Passwort"
$crypt = _crypt_myown($sString, $sPassword)
$decrypt = _decrypt_myown($crypt, $sPassword)
ConsoleWrite("Crypt:"&$crypt&@CRLF)
ConsoleWrite("DeCrypt:"&$decrypt&@CRLF)
Func _crypt_myown($sString, $sPassword)
$aPassword = StringSplit($sPassword, "")
For $i = 1 To $aPassword[0]
$aPassword[$i] = Asc($aPassword[$i])
Next
$aString = StringSplit($sString, "")
For $i = 1 To $aString[0]
$aString[$i] = Asc($aString[$i])
Next
$sCrypt_String = ""
$o = 1
For $i = 1 To $aString[0]
$iAsc = $aString[$i] + $aPassword[$o]
If $iAsc > 255 Then $iAsc -= 255
$sCrypt_String &= Chr($iAsc)
$o += 1
If $o > $aPassword[0] Then $o = 1
Next
Return $sCrypt_String
EndFunc ;==>_crypt_myown
Func _decrypt_myown($sString, $sPassword)
$aPassword = StringSplit($sPassword, "")
For $i = 1 To $aPassword[0]
$aPassword[$i] = Asc($aPassword[$i])
Next
$aString = StringSplit($sString, "")
For $i = 1 To $aString[0]
$aString[$i] = Asc($aString[$i])
Next
$sDeCrypt_String = ""
$o = 1
For $i = 1 To $aString[0]
$iAsc = $aString[$i] - $aPassword[$o]
If $iAsc < 0 Then $iAsc += 255
$sDeCrypt_String &= Chr($iAsc)
$o += 1
If $o = $aPassword[0] Then $o = 1
Next
Return $sDeCrypt_String
EndFunc ;==>_decrypt_myown
Jedoch Ver- Entschlüsselt er das nich richtig 
Vielleicht hat von euch ja einer ne Idee wie man das Problem beheben kann
Ich hätte das ganze jetzt so gelöst.
#include <GUIConstantsEX.au3>
#include <EditConstants.au3>
$main = GUICreate("Test", 150, 100)
$checkbox = GUICtrlCreateCheckbox("test", 20, 30)
$input = GUICtrlCreateInput("0", 80, 30, 40, 20, $ES_NUMBER)
GUICtrlSetState(-1, $GUI_DISABLE)
$updown1 = GUICtrlCreateUpdown($input)
GUICtrlSetLimit(-1, 100, 0)
GUISetState()
$checkboxstate = GUICtrlRead($checkbox)
While 1
If GUICtrlRead($checkbox) <> $checkboxstate Then ; führt die if abfrage nur aus wenn sich der status der Checkbox geändert hat
If GUICtrlRead($checkbox) = $GUI_CHECKED Then
GUICtrlSetState($input, $GUI_ENABLE)
Else
GUICtrlSetData($input, "")
GUICtrlSetState($input, $GUI_DISABLE)
EndIf
$checkboxstate=GUICtrlRead($checkbox) ; Setzt den neuen status fest
EndIf
$main = GUIGetMsg()
Switch $main
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Könnte man das ganz problem nicht auch so lösen?
Global $aIpAdressen[3]
$aIpAdressen[0] = "172.21.122.2"
$aIpAdressen[1] = "172.21.122.3"
$aIpAdressen[2] = "172.21.122.4"
GUICreate("Empfängerliste")
Global $aLabels[3]
$aLabels[0] = GUICtrlCreateLabel("Name1, Vorname1", 100, 10)
$aLabels[0] = GUICtrlCreateLabel($aIpAdressen[0], 10, 10)
GUICtrlSetColor(-1, 0x0000FF)
$aLabels[1] = GUICtrlCreateLabel("Name2, Vorname2", 100, 30)
$aLabels[1] = GUICtrlCreateLabel($aIpAdressen[1], 10, 30)
GUICtrlSetColor(-1, 0x0000FF)
$aLabels[2] = GUICtrlCreateLabel("Name3, Vorname3", 100, 50)
$aLabels[2] = GUICtrlCreateLabel($aIpAdressen[2], 10, 50)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState()
Senden()
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(10)
If GUIGetMsg() = -3 Then Exit
WEnd
Func Senden()
Local $iIndex, $iSocket, $iSendedBytes
if Ping($aIpAdressen[$iIndex], 125)= 0 then Return; Wenn Computer nicht erreichbar dann verlässt er die funktion ohne zu senden
TCPStartup()
For $iIndex = 0 To Ubound($aIpAdressen)-1
$iSocket = TCPConnect($aIpAdressen[$iIndex], 4321)
If @error Then
GUICtrlSetColor($aLabels[$iIndex], 0xFF0000)
Else
$iSendedBytes = TCPSend($iSocket, "NACHRICHT!")
TCPCloseSocket($iSocket)
GUICtrlSetColor($aLabels[$iIndex], 0x00FF00)
EndIf
Next
TCPShutdown()
EndFunc
€dit: Lösung war doch nich so sinnvoll -.- Sorry
€dit2:
Hab das mal ein bisschen umgeschrieben Jetzt sollte das auch Funktionieren.
Global $aIpAdressen[3]
$aIpAdressen[0] = "172.21.122.2"
$aIpAdressen[1] = "172.21.122.3"
$aIpAdressen[2] = "172.21.122.4"
GUICreate("Empfängerliste")
Global $aLabels[3]
$aLabels[0] = GUICtrlCreateLabel("Name1, Vorname1", 100, 10)
$aLabels[0] = GUICtrlCreateLabel($aIpAdressen[0], 10, 10)
GUICtrlSetColor(-1, 0x0000FF)
$aLabels[1] = GUICtrlCreateLabel("Name2, Vorname2", 100, 30)
$aLabels[1] = GUICtrlCreateLabel($aIpAdressen[1], 10, 30)
GUICtrlSetColor(-1, 0x0000FF)
$aLabels[2] = GUICtrlCreateLabel("Name3, Vorname3", 100, 50)
$aLabels[2] = GUICtrlCreateLabel($aIpAdressen[2], 10, 50)
GUICtrlSetColor(-1, 0x0000FF)
GUISetState()
Senden()
[/autoit] [autoit][/autoit] [autoit]While 1
Sleep(10)
If GUIGetMsg() = -3 Then Exit
WEnd
Func Senden()
Local $iIndex, $iSocket, $iSendedBytes
For $iIndex = 0 To UBound($aIpAdressen) - 1
If Ping($aIpAdressen[$iIndex], 50) = 0 Then ; Wenn Computer nicht erreichbar dann überspringt er den Computer
GUICtrlSetColor($aLabels[$iIndex], 0xFF0000)
Else
TCPStartup()
$iSocket = TCPConnect($aIpAdressen[$iIndex], 4321)
$iSendedBytes = TCPSend($iSocket, "NACHRICHT!")
TCPCloseSocket($iSocket)
TCPShutdown()
GUICtrlSetColor($aLabels[$iIndex], 0x00FF00)
EndIf
Next
EndFunc ;==>Senden
[/autoit]Das is ne schöne Idee aber Ich denke das das nicht nur mir so geht wenn ich sage das, das viel zu schnell wechselt xD. Ich komme da schnell genug auf das Lable um darauf zu klicken
Edit:
Außerdem ist das captcha sehr leicht zu umgehen. einfach den Captcha text auslesen und dann mit Controlsettext unten eintragen.
Ich denke ein Script um das zu umgehen poste ich besser nicht.
Das mit dem Include is nich korrekt.
Ich hab mal ein Script gemacht mit einem Include:
MsgBox(0, "","Include")
[/autoit]MsgBox(0, "", "Script")
#include<Inc.au3>
Wenn ich das so compile dann sollte nach deiner Theorie erst die Include msgbox kommen, und dann erst die Script msgbox.
Aber bei mir kommt erst die Script MsgBox.
Ich habe den Thread grade eben erst entdeckt.
Muss aber sagen das mir diese Erweiterung für Scite sehr gut gefällt.
Herzliches Willkommen auch von mir.
Jetzt gibts hier auch einen 2. Pascal
Sehr schönes Programm
Aber kann man die Taste nich auch mit der _HotString UDF abrufen?
Schau dir mal das hier an.
http://www.epsxe.com/files/ePSXe_FAQ.txt
Dort stehen Command-Line Optionen.
Damit könntest du dein Program starten.
€dit: Interessant könnten sein
-loadbin <file> - Loads a specified ISO image file.
-bios <file> - Loads the specified PlayStation BIOS file.Und wie willst du dann die eingeloggte Instanz nutzen?
Per Firefox sicherlich nicht.
Und nur die Einlog Funktion wird dir sicher nichts bringen wenn du sie im anschluss nicht im FireFox nutzen kannst.
Das wird zu 100% ein Bot.