Hi,
kein Ding!
Wieso willste den Sound weg haben, bau dir doch einfach ne Schleife, die beim obersten bzw untersten erreichen einfach wieder in der Gegenrichtung von vorn beginnt (hatte ich zum Teil schon umgesetzt).
Dann hast du kein nervendes Bingen und musst von ganz oben nicht wieder nach ganz unten springen 
Gruß,
x0r
QR-Code is ganz nett, verläuft mit der Zeit aber, und dann wars das 
Es ging mir primär nicht um die Gedanken des Tättoowierers, eher um die meines Umfeldes 
Ich hab auf der rechten Schulter einen Totenkopf mit Kolben in der Fresse, mit gekreuzten Knochen im Hintergrund, auf einer (im 8er laufenden) Kette (Motorrad) und oben ein von hinten angelehntes Zahnrad.
Sieht spitze aus, wie ich finde 
ich sehs schon kommen "wieso steht da 'ich bin der ultra-dau!'"?
noch spiel ich nur mit dem gedanken.. obs wirklich soweit kommt, weiss ich noch nicht
Hi all,
habe eben was kleines entworfen, da ich mit dem Gedanken spiele mir einen Text auf die Art tattoowieren zu lassen und selbstverständlich beim "per Hand convertieren" kein Fehler passieren darf 
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("ASC to BIN", 501, 403, 192, 114)
$txt = GUICtrlCreateEdit("", 16, 16, 385, 177)
$bin = GUICtrlCreateEdit("", 16, 208, 385, 177)
$convert = GUICtrlCreateButton("Convert", 408, 16, 75, 65, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $convert
doconv()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func doconv()
Local $out, $asc
Local $str = GUICtrlRead($txt)
For $i = 1 To StringLen($str)
$asc = Asc(StringMid($str, $i, 1))
ConsoleWrite($asc & @CRLF)
$out &= dec2bin($asc) & "."
Next
GUICtrlSetData($bin, StringTrimRight($out, 1))
EndFunc ;==>doconv
Func dec2bin($_iDec, $_xAddZero = True, $_iMaxLen = 
Local $_sBin, $_iLen
Do
$_sBin = Mod($_iDec, 2) & $_sBin
$_iDec = Floor($_iDec / 2)
Until $_iDec = 0
If Not $_xAddZero Then Return $_sBin
$_iLen = StringLen(Hex($_iDec, Ceiling($_iMaxLen / 4))) * 4
For $i = 1 To $_iLen - 1
$_sBin = "0" & $_sBin
Next
Return StringRight($_sBin, $_iLen)
EndFunc ;==>dec2bin
P.S.: Habe mich mal wieder der "dec2bin" von m-obi bedient
Gruß,
x0r
Hi,
hab mir auch grad testhalber sowas zusammengebaut:
#include <Misc.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $hist, $cnt
Global $hDLL = DllOpen("user32.dll")
$Form1 = GUICreate("testing", 394, 331, 192, 114)
$Input1 = GUICtrlCreateInput("", 8, 16, 377, 21)
$Edit1 = GUICtrlCreateEdit("", 8, 48, 377, 273)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Input1
writehistory()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
[/autoit] [autoit][/autoit] [autoit]If _IsPressed("26", $hDLL) Then
If $cnt = 0 Then
$histt = GUICtrlRead($Edit1)
$hists = StringSplit($histt, "†")
$cnt = $hists[0]
EndIf
GUICtrlSetData($Input1, $hists[$cnt])
[/autoit] [autoit][/autoit] [autoit]While _IsPressed("26", $hDLL)
Sleep(100)
WEnd
$cnt -= 1
EndIf
WEnd
Func writehistory()
$hist &= GUICtrlRead($Input1) & "†"
GUICtrlSetData($Edit1, $hist)
EndFunc ;==>writehistory
Sieht ganz gut aus, denk ich, funktioniert und tut seinen Zweck - die Editbox is nur zur Kontrolle
Gruß,
x0r
Hi,
mit Windows kannst es auch mit ein paar Klicks lösen, allerdings hab (z.b.) ich mich damit noch nicht soooo beschäftigt, probiers aus
=> start -> Leiste unten eingeben -> "plan"
Gruß,
x0r
Hi,
sowas ungefähr?
while 1
$program = "c:\users\user\desktop\programm.exe"
$zeit1 = "23:59"
$zeit2 = "11:59"
$proc = StringSplit($program,'\')
$proc = $proc[$proc[0]]
$time = @HOUR & ":" & @MIN
if $time = $zeit1 or $time = $zeit2 Then
;~ MsgBox(0,"","ProcessClose(" & $proc & ")")
;~ MsgBox(0,"","ShellExecute(" & $program & ")")
ProcessClose($proc)
ShellExecute($program)
sleep(65000)
EndIf
sleep(1000)
WEnd
Gruß,
x0r
Frage an die Allgemeinheit: An diesem Aero-Design kanns nicht liegen, oder?
Mein Windows-Design ist "Classic" (Windows XP-like)
Sogar als x86 (32bit) läufts bei mir.
Ist etwas schwer einen Fehler zu finden, der beim potentiellen Helfer nicht auftritt
Wie wäre es, wenn du einen Klick auf Enter simulierst/sendest?
Send("{Enter}")
Gruß,
x0r
Hi jNizM,
unverändert, bei mir läufts
$title = "Speichern unter"
[/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit]If WinExists($title) Then
WinWaitActive($title)
Local $sText = ControlGetText($title, "", "Edit1")
If $sText = "UPS_CSV_EXPORT.csv" Then
ControlSend($title, "", "Edit1", "test")
ControlClick($title, "", "Button1")
MsgBox(0, "Test", "test " & $sText)
EndIf
EndIf
WEnd
€dit: Sendet ans Ende von deiner Eingabe "test" und klickt den Dialog weg, danach folgt die MsgBox.
Gruß,
x0r
es sind nicht nur die paar Zeilen, sondern ca 60.000 Datensätze mit unterschiedlichen Kategorien und Farben, Farben können ca 10 unterschiedliche sein und die sollen in die Kategorien zusammengefasst werden.
So was einfaches, wie im Beispiel, würd sogar ich noch auf die Reihe kriegen
Hi,
gibts in Excel eine Möglichkeit, folgende Felder zu "Verketten"?:
Tabelle:
Kat 1 | gelb
Kat 2 | grün
Kat 1 | rot
Kat 2 | lila
Ergebnis soll sein:
Kat 1 | gelb, rot
Kat 2 | grün, lila
Hoffe ihr versteht, was ich meine
Danke & Gruß,
x0r
Hoi!
Bevor sich wer beschwert, direkt mal vorne weg, hab das Teil in 5 min zusammen gebaut, hätte man anders lösen können, fands so aber ganz interessant
Achja: Es funktioniert nur mit Worten, die <= 9 Buchstaben haben
(Wortlisten können verwendet werden -> einlesen per _FileReadToArray())
#include <file.au3>
#include <misc.au3>
#include <array.au3>
dim $ary[12]
Global $var, $str, $rnd, $cnt, $out, $ges
;_FileReadToArray(@ScriptDir & "\Wortliste.txt", $ary)
[/autoit] [autoit][/autoit] [autoit]$ary[0] = 11
$ary[1] = "Zinsen"
$ary[2] = "Teamspeak"
$ary[3] = "Chat"
$ary[4] = "Zocken"
$ary[5] = "Steam"
$ary[6] = "Spiele"
$ary[7] = "Computer"
$ary[8] = "Elektron"
$ary[9] = "Prozessor"
$ary[10] = "Grafik"
$ary[11] = "Speicher"
for $i = 1 To $ary[0]
Local $x = 0
Local $var = ""
Local $in = ""
$var = anagram($ary[$i])
Do
$in = InputBox("Eingabe", $var, "")
if @error = 1 Then Exit
$x += 1
Until $in = $ary[$i]
MsgBox(64, "Richtig", $x & " Versuch" & _iif($x > 1,"e","") & " gebraucht!")
$ges += $x
Next
MsgBox(0,"Versuche gebraucht", "Gesamt: " & $ges)
[/autoit] [autoit][/autoit] [autoit]func anagram($str)
Local $out = ""
Local $str2 = ""
Local $hrnd = ""
Local $rnd = ""
Local $cnt = StringLen($str)
Do
$hrnd = Random(1,$cnt,1)
if not StringInStr($rnd, $hrnd) Then $rnd &= $hrnd
Until StringLen($rnd) = $cnt
;~ ConsoleWrite($rnd & @CRLF)
[/autoit] [autoit][/autoit] [autoit]$str2 = StringSplit($rnd,"")
[/autoit] [autoit][/autoit] [autoit]For $z = 1 To $str2[0]
$out &= StringMid($str,$str2[$z],1)
Next
return $out
EndFunc
Gruß,
x0r
Hi ihr,
habe jetz doch schnell was gebaut, mit dem man "Serials" mit Hilfe von ner MySQL-Datenbank überprüfen kann.
Die Tabelle hat nur eine Spalte mit Datentyp "varchar(20)" (nehmt, was ihr wollt!) und ansonsten dürfts auch selbsterklärend sein.
Ob ihr ne Serial aus den Hardware-IDs oder (wie ich) aus @UserProfileDir was verschlüsseltes generiert oder was ganz anderes nehmt, bleibt euch überlassen.
Es funktioniert übrigens
#include <mysql.au3>
[/autoit] [autoit][/autoit] [autoit]Global $serial = FileRead(@ScriptDir & "\serial.txt")
[/autoit] [autoit][/autoit] [autoit]If sqlcon($serial) Then
MsgBox(64, "OK", "Richtiger Key!")
Exit
Else
MsgBox(16, "Error", "Falscher Key!")
Exit
EndIf
Func sqlcon($search)
Local $out
Local $result = False
Local $sqluser = "root" ;sql user
Local $sqlpass = "" ;sql pass
Local $sqldb = "serials" ;datenbank
Local $sqltable = "serials" ;tabelle
Local $sqlserv = "192.168.10.2" ;sql server
Local $sqlcon = _MySQLConnect($sqluser, $sqlpass, $sqldb, $sqlserv)
Local $read = _Query($sqlcon, "SELECT * FROM " & $sqltable)
With $read
While Not .eof
$out = .fields("number" ).value
If $out == $search Then $result = True
.movenext
WEnd
EndWith
_mysqlend($sqlcon)
Return $result
EndFunc ;==>sqlcon
P.S.: Die "serial.txt" könnte man auch in die Registry auslagern oder sonst irgendwohin, ging so nur am Schnellsten
...jetzt hab ichs ziemlich gut gelöst, und zwar:
1. Bei Programmstart wird die "serial.txt" überprüft, wenn nichts drin steht, kommt eine Inputbox mit Aufforderung einen Key bei angegebenen Kontaktdaten zu erfragen, mit unten stehendem generierten String aus @UserName (mit Hilfe der Crypt.au3).
2. Kunde/Person schickt uns den generierten String zu, den wir decoden können und dann ein anderes Serial mit einem neuen "key" zu generieren.
3. Den von uns generierten Key muss der Kunde in der "serial.txt" hinterlegen.
4. Programm funktioniert.
5. Kunde/Person kennt nicht den Verschlüsslungscode bzw das Passwort und kann sich somit nichts eigenes generieren, es wird auch auf anderen PC's / Profilen nicht funktionieren.
schätze, dass das so ok ist
Und wie gesagt! Der Durchschnittsprogrammierer wird das Ding nicht decompilen, sondern sich in ein paar Minuten selbst was basteln
Gruß,
x0r
im Prinzip is es wurscht, wo ich den Key speichere.. ich baus morgen mal auf Registry um.
Das Prog braucht sowieso immer einen Ordner mit im ScriptDir, evtl leg ich die txt auch einfach dort ab und bau im Prog noch einen Button ein mit "Serial ändern" oder sowas
Schnitzel: Danke für dein Feedback.
Aber wie bereits erwähnt, hat die Person absolut 0 Peilung von PC's und vom Programmieren bzw AutoIt schon gleich 2^64 mal nicht
Durchschaubar is nich so wild, um den String in meiner "serial.txt" zu decrypten, muss man auch erstmal den Schlüssel kennen, den ich verwendet habe. Der steht zwar im Klartext im Source, aber an den kommt von denen sowieso keiner ran
Grüße,
x0r
nene, ich verwende die eben genannte Möglichkeit, einfach einen Key aus dem @UserProfileDir basteln und in ne txt rein, funktioniert ganz gut
...wenn er Plan vom Proggen hat, baut er sich sowas in 10 min selbst
schätze ich hab ne Möglichkeit gefunden
Bedingung ist natürlich, dass die Person keinen Plan von proggen, AutoIt bzw decompilen hat:
[autoit]#include <crypt.au3>
[/autoit][autoit][/autoit][autoit]if _Crypt_EncryptData(@UserProfileDir, "mein_key", $CALG_AES_256) <> FileReadLine(@ScriptDir & "\serial.txt",1) Then
MsgBox(64,"fehler","key nicht richtig!")
Exit
Else
MsgBox(64,"korrekt","key ist richtig!")
EndIf
Denke einfacher gehts nicht
