Hallo!
Local $sText = GUICtrlCreateEdit("1234", 10, 260, 780, 40)
GUICtrlSetFont(-1, 10, $FW_NORMAL, $sFont)
GUICtrlSetState($sText, $GUI_FOCUS)Mit diesem Code erzeuge ich ein Eingabefeld. Leider ist es nicht mit der Maus bedienbar. Wie bekomme ich den Musklick hin (Suchbegriff für Google)? Danke!
Gruß, René
Das Problem ist auch gelöst, dank Internet. Hat ein wenig gedauert bis ich den Code verstanden habe. Jetzt habe ich eine große Form mit vernünftiger Schrift. Man muss aber wissen wonach man sucht.
Danke! Aber so weit bin ich noch nicht. 
Das sind mir zuviele Dateien.
Auf jeden Fall bin ich jetzt weitergekommen. Jetzt bin ich gerade bei der Inputbox. Nur schade, dass die zu klein sind, da kann man die Schrift kaum lesen.
Danke! Interessant.
Ja, es muss eine Exe sein, die auch ohne installiertes AutoIt laufen muss. Das ist ja der Sinn der Übung.
Danke! Wenn ich richtig verstehe, wird dadurch "Compress output program" auf false gesetzt. Aber was bewirkt das? Funktioniert die Exe dann auch noch auf Systemen ohen installiertes AutoIt?
Hallo!
Manche AV-Programme geben für die Exe-Datei eine Trojaner-Meldung aus. Z.B. der Windows-Defender. Ist das schon jemanden aufgefallen, hat noch jemand eine solche Meldung bekommen?
Gruß, René
Danke! Jetzt hat er es, ich habe zwei Zeilen übersehen. Es wird aber "falsch gerechnet". VBA gibt 433959-746058-874167 aus, aber AutoIt 328959-280246-193864. Das ist zwar kein Weltuntergang, aber verstehen kann ich es (noch) nicht.
Mein Problem ist, dass ich immernoch die Meldung "Falsche Anzahl an Parametern" bekomme. Ich finde aber den Fehler nicht.
Func exchangeDigit($sText)
Global $myDic, $b, $Keys, $Ding, $Tmp
$myDic = ObjCreate("Scripting.Dictionary")
$myDic.Add(1, 4)
$myDic.Add(8, 11)
$myDic.Add(13, 14)
$myDic.Add(18, 23)
$b = StringToBinary($sText, $SB_ANSI)
$Keys = $myDic.Keys()
For $Ding In $Keys
$Tmp = BinaryMid($b, $Ding - 1, 1)
BinaryMid($b, $Ding - 1, BinaryMid($b, $myDic.Item($Ding) - 1))
BinaryMid($b, $myDic.Item($Ding) - 1, 1)
Next
Return BinaryToString($b, $SB_ANSI )
EndFuncAufruf über: $strCodeStart = exchangeDigit($strCodeStart)
Danke! So funktioniert es. Jetzt muss ich noch das Problem mit dem Dictionary lösen. Mal schaun was Google dazu sagt.
So richtig blicke ich da nicht durch.
Option Private Module
Option Explicit
Public strSQL As String
Public strWMI As String
Public oWMI As Object
Public objItem As Object
Public stringFP As String
Public stringPC As String
Public stringEndNumber As String
Public myFileSystemObject As Object
Public stringEndNumberTest As String
Public strCode1 As String
Public strCode2 As String
Public strCode3 As String
Public strCode4 As String
Public strCodeStart As String
Public codeBlockA As String
Public codeBlockB As String
Public codeBlockC As String
Public strCodeEnd As String
Private Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As Long, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Long
Private Declare Function CryptReleaseContext Lib "advapi32.dll" (ByVal hProv As Long, ByVal dwFlags As Long) As Long
Private Declare Function CryptCreateHash Lib "advapi32.dll" (ByVal hProv As Long, ByVal Algid As Long, ByVal hKey As Long, ByVal dwFlags As Long, ByRef phHash As Long) As Long
Private Declare Function CryptDestroyHash Lib "advapi32.dll" (ByVal hHash As Long) As Long
Private Declare Function CryptHashData Lib "advapi32.dll" (ByVal hHash As Long, pbData As Byte, ByVal dwDataLen As Long, ByVal dwFlags As Long) As Long
Private Declare Function CryptGetHashParam Lib "advapi32.dll" (ByVal hHash As Long, ByVal dwParam As Long, pbData As Any, pdwDataLen As Long, ByVal dwFlags As Long) As Long
Private Const ALG_CLASS_HASH As Long = (4 * 2 ^ 13)
Private Const ALG_SID_HMAC As Long = 9
Private Const ALG_SID_MD2 As Long = 1
Private Const ALG_SID_MD4 As Long = 2
Private Const ALG_SID_MD5 As Long = 3
Private Const ALG_SID_SHA As Long = 4
Private Const ALG_SID_SHA1 As Long = 4
Private Const ALG_TYPE_ANY As Long = 0
Private Const CALG_MD2 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD2)
Private Const CALG_MD4 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD4)
Private Const CALG_MD5 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD5)
Private Const CALG_SHA1 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_SHA1)
Enum Algorithmus
md2 = CALG_MD2
md4 = CALG_MD4
md5 = CALG_MD5
sha1 = CALG_SHA1
End Enum
Function Crypt(text As String, Art As Algorithmus) As String
Dim AcquireContext As Long
Dim HashHandle As Long
Dim result As Long
Dim ByteText() As Byte
Dim LängeResult As Long
Dim ByteResult() As Byte
Dim Zähler As Integer
ByteText() = StrConv(text, vbFromUnicode)
result = CryptAcquireContext(AcquireContext, vbNullString, vbNullString, 1, 0)
If result = 0 And Err.LastDllError = &H80090016 Then _
result = CryptAcquireContext(AcquireContext, vbNullString, vbNullString, 1, &H8)
result = CryptCreateHash(AcquireContext, Art, 0, 0, HashHandle)
result = CryptHashData(HashHandle, ByteText(0), Len(text), 0)
result = CryptGetHashParam(HashHandle, 4, LängeResult, 4, 0)
ReDim ByteResult(0 To LängeResult - 1) As Byte
result = CryptGetHashParam(HashHandle, 2, ByteResult(0), LängeResult, 0)
For Zähler = 0 To UBound(ByteResult)
Crypt = Crypt & Right$("0" & Hex$(ByteResult(Zähler)), 2)
Next
CryptDestroyHash HashHandle
CryptReleaseContext AcquireContext, 0
End Function
Public Function lizenzCodeTool(codeEingabe As String)
strSQL = "Select * from Win32_Processor"
strWMI = "winmgmts:\\.\root\cimv2"
Set oWMI = GetObject(strWMI).ExecQuery(strSQL)
For Each objItem In oWMI
stringPC = objItem.ProcessorId
Next
Set myFileSystemObject = CreateObject("Scripting.FileSystemObject")
stringFP = myFileSystemObject.GetDrive("C:").SerialNumber
stringEndNumber = stringPC & stringFP
stringEndNumber = Crypt(stringEndNumber, sha1)
Range("A1").Value = stringEndNumber
End FunctionWenn ich das in Excel laufen lasse, kommt 3D1C2C18AF82B255B91D7B137BFDD42C16086A16 raus. Irgendwie gelingt mir das in AutoIt nicht.
Danke! Das probiere ich aus. Allerdings brauche ich nur den String verschlüsselt (sha1), ohne "Userkey". Entschlüsseln brauche ich auch nicht. Besser gesagt, ich brauche nur den Hashwert eines Strings.
aber ich hab nochmal den Chad^^ gefragt, das könntest du aber auch selber ^^.
Glaube ich nicht. Weil ich den nicht kenne.
Was genau soll den der Code von Anfang bis ende tun?
Einen Lizenzcode berechnen. Das Problem mit den Variablen habe ich gelöst (war ein Denkfehler). Jetzt bekomme ich immer die Meldung "Unbekannter Funktionsname" wenn ich die Funktion nutzen möchte. Aufgerufen wird sie mit $stringFP = Crypt($stringFP, "sha1"). Bei der Funktion "exchangeDigitA" bekomme ich die Fehlermeldung "Falsche Anzahl an Parametern" beim Aufruf mit $codeBlockA = exchangeDigitA($strCode2), was aber nicht sein kann weil die Funktion nur einen Parameter hat. In VBA alles kein Problem.
Funktioniert leider nicht. Fehlermeldung lautet: Error: Can not initialize a variable with itself
"For Each" ist doch einfacher als gedacht, einfach das "Each" weglassen.
Hallo!
Ich teste mal wieder ein wenig in AutoIt. Abeer alles aus VBA kann ich nicht übersetzen. Z.B. finde ich keinen Ersatz für "For Each" und/oder verstehe ich nicht. Auch API-Ersatz und Kommandzeilen-Anweisungen habe ich noch nicht gefunden. Wie könnte man das nach AutoIt übersetzen, und wo finde ich darüber Lesestoff? Danke!
Private Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As Long, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Long
Private Declare Function CryptReleaseContext Lib "advapi32.dll" (ByVal hProv As Long, ByVal dwFlags As Long) As Long
Private Declare Function CryptCreateHash Lib "advapi32.dll" (ByVal hProv As Long, ByVal Algid As Long, ByVal hKey As Long, ByVal dwFlags As Long, ByRef phHash As Long) As Long
Private Declare Function CryptDestroyHash Lib "advapi32.dll" (ByVal hHash As Long) As Long
Private Declare Function CryptHashData Lib "advapi32.dll" (ByVal hHash As Long, pbData As Byte, ByVal dwDataLen As Long, ByVal dwFlags As Long) As Long
Private Declare Function CryptGetHashParam Lib "advapi32.dll" (ByVal hHash As Long, ByVal dwParam As Long, pbData As Any, pdwDataLen As Long, ByVal dwFlags As Long) As Long
Private Const ALG_CLASS_HASH As Long = (4 * 2 ^ 13)
Private Const ALG_SID_HMAC As Long = 9
Private Const ALG_SID_MD2 As Long = 1
Private Const ALG_SID_MD4 As Long = 2
Private Const ALG_SID_MD5 As Long = 3
Private Const ALG_SID_SHA As Long = 4
Private Const ALG_SID_SHA1 As Long = 4
Private Const ALG_TYPE_ANY As Long = 0
Private Const CALG_MD2 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD2)
Private Const CALG_MD4 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD4)
Private Const CALG_MD5 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD5)
Private Const CALG_SHA1 As Long = (ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_SHA1)
Enum Algorithmus
md2 = CALG_MD2
md4 = CALG_MD4
md5 = CALG_MD5
sha1 = CALG_SHA1
End Enum
Function Crypt(text As String, Art As Algorithmus) As String
Dim AcquireContext As Long
Dim HashHandle As Long
Dim result As Long
Dim ByteText() As Byte
Dim LängeResult As Long
Dim ByteResult() As Byte
Dim Zähler As Integer
ByteText() = StrConv(text, vbFromUnicode)
result = CryptAcquireContext(AcquireContext, vbNullString, vbNullString, 1, 0)
If result = 0 And Err.LastDllError = &H80090016 Then _
result = CryptAcquireContext(AcquireContext, vbNullString, vbNullString, 1, &H8)
result = CryptCreateHash(AcquireContext, Art, 0, 0, HashHandle)
result = CryptHashData(HashHandle, ByteText(0), Len(text), 0)
result = CryptGetHashParam(HashHandle, 4, LängeResult, 4, 0)
ReDim ByteResult(0 To LängeResult - 1) As Byte
result = CryptGetHashParam(HashHandle, 2, ByteResult(0), LängeResult, 0)
For Zähler = 0 To UBound(ByteResult)
Crypt = Crypt & Right$("0" & Hex$(ByteResult(Zähler)), 2)
Next
CryptDestroyHash HashHandle
CryptReleaseContext AcquireContext, 0
End Function
Public Function stringPC() As String
strSQL = "Select * from Win32_Processor"
strWMI = "winmgmts:\\.\root\cimv2"
Set oWMI = GetObject(strWMI).ExecQuery(strSQL)
For Each objItem In oWMI
stringPC = objItem.ProcessorId
Next
End Function
Public Function exchangeDigitA(sText)
Dim myDic As Object
Dim b() As Byte
Dim Ding
Dim Tmp
Set myDic = CreateObject("scripting.Dictionary")
myDic(1) = 3
myDic(4) = 6
b = StrConv(sText, vbFromUnicode)
For Each Ding In myDic
Tmp = b(Ding - 1)
b(Ding - 1) = b(myDic(Ding) - 1)
b(myDic(Ding) - 1) = Tmp
Next
exchangeDigitA = StrConv(b, vbUnicode)
End FunctionGruß, René
Hallo!
Ich wollte per Outlook eine Email erstellen. Nun zeigt mir AutoIt an dass die "OutlookExConstans" nicht gefunden werden kann (die ist im AutoIt-Ordner auch nicht zu finden). Woher bekomme ich die? Oder muss ich etwas ändern (z.B. AutoIt neu installieren)? Danke!
Gruß, René
ich habe es mal am Notebook Win 10 mit IE probiert und da sieht alles gut aus.
Auch mit "Windows Creator"?
Nicht den IE zu benutzen dürfte dein Problem lösen...
Solche Aussagen finde ich dämlich. Ich nutze den IE solange ich kann.
