Beiträge von oh-ha

oh-ha

sorry fürs späte melden,

habe mal getestet und leider nur getestet
Habe da noch irgendeinen Fehler drin.

[autoit]

$sFilePath3 = @ScriptDir & "\test.xls" ; Pfad bestimmen zu der Tabelle allgemein
$oExcel = _ExcelBookOpen($sFilePath3, $fVisible = 0); Tabelle öffnen
$oExcel.ActiveSheet.Range("A7:A7" ).Select ; Makieren
$oExcel.ActiveCell.EntireRow.Insert(1) ; fügt eine Zeile hinzu
$read1 = _ExcelReadCell($oExcel, 6, 1) ; Wird die Zelle A6 eingelesen
$array = StringSplit($read1, ",", 1) ; Wird der Text der Zelle A6 gesplittet. Splitzeichen = ,
_ExcelWriteArray ($oExcel, 6, 1, $array[1]) ; Array[1] in die Zelle A6 einlesen
_ExcelWriteArray ($oExcel, 7, 1, $array[2]) ; Array[2] in die Zelle A7 einlesen
MsgBox(0, "$result:", $array[1]) ; Zum testen ( Array[1] wird richtig angezeigt)
MsgBox(0, "$result:", $array[2]) ; Zum testen ( Array[2] wird richtig angezeigt)
MsgBox(0, "$result:", @error) ; @error = 0
_ExcelBookSaveAs($oExcel, @ScriptDir & "\Test123.xls")
_ExcelBookClose($oExcel)

[/autoit]

Es werden Array[1] und [2] nicht in die Tabelle geschrieben aber in der MsgBox richtig angezeigt.
Wo liegt da der Fehler drin ?

Edit: Nehme Array´s da die Zeilenlänge der Reihe 6 Variabel ist und das wohl besser mit Array´s zu machen ist.

mfg
oh-ha

oh-ha

moin,

jo die kenne, nur wie kann man das umsetzen ?

mfg
oh-ha

oh-ha

moin moin,

habe da mal wieder ein Problem mit Excel.

Habe diese Reihe:
[Blockierte Grafik: http://www.imgbox.de/users/jojono/autoit/1.JPG]
Ist nur als Beispiel gedacht. Die Reihen werden erzeugt und sind variabel, können also länger oder kürzer ausfallen.
Aber das Komma wird in allen Zellen angezeigt außer Datum und Zeit

Ich möchte den Text der in den einzelnen Zellen ist splitten das es dann so aussieht:
[Blockierte Grafik: http://www.imgbox.de/users/jojono/autoit/2.JPG]

Wie man eine Zeile einfügt weiss ich:

[autoit]

$oExcel.ActiveSheet.Range("A7:A7" ).Select
$oExcel.ActiveCell.EntireRow.Insert(1);----->fügt eine Zeile hinzu

[/autoit]

nur nicht wie ich das gesplittet bekomme, würde sich ja das Komma für anbieten.

mfg
oh-ha

oh-ha

OK sorry,

habe es rausgefunden.
Konnte man mit dem was ich gepostet habe nicht ersehen.
Hatte den Focus auf ein input gelegt und dieses hat mir dann den fehler gemacht.

[autoit]

Func tastenklick()
GUICtrlSetState($Inputtaste, $GUI_FOCUS)
GUICtrlSetData($Inputtaste,"neue Taste bitte")
$result = GetKeyInput()
GUICtrlSetData($Inputtaste,$result[1])
$abc = GUICtrlRead ($Inputtaste)
IniWrite(@WindowsDir & "\system\clasir.ini", "Tastenklicks", $klick, $abc)
$po = IniRead(@WindowsDir & "\system\clasir.ini", "Tastenklicks", $klick, "")
GUICtrlSetData($vorschau, $po & " - ", "|")
EndFunc ;==>tastenklick

[/autoit]

Wobei >>> $Inputtaste = GUICtrlCreateInput(-1, 290, 190, 232, 24, BitOR($ES_CENTER,$ES_AUTOHSCROLL)) <<< das ist.
Das beißt sich anscheinend.

Nochmals sorry für das unnötige nachfragen und schlechte posten meinerseits.
Wollte nur halt verhindern das man ein fertiges bot skript hier postet.

mfg
oh-ha

oh-ha

moin moin,

habe da ein Problem mit der Tab Taste bei einem Tastensimulations Skript.
Stelle mal nicht das gesamte Skript hier rein da man dieses ohne Probleme auch für Bots basteln benutzen kann.
Deshalb mal nur als Bild mit den relevanten Textzeilen, hoffe ich mal.
[Blockierte Grafik: http://www.imgbox.de/users/jojono/Tastenkombi.jpg]

Teile des skriptes:

Tastenkombinationen

[autoit]

#cs
Autor der GetKeyboardInput...Function: Faweyr
Site : http://www.autoit.de/index.php?page=Thread&threadID=20071
#ce
Func GetKeyInput($sTime = 4000,$sBack = 0)
$sTimer = TimerInit()
$sDll = DllOpen("user32.dll")
Local $sList[111][3] = [ [08,"{BACKSPACE}","Backspace"], [09,"{TAB}","Tab"], [0&"D","{ENTER}","Enter"], ["A"&0,"{LSHIFT}","Left Shift"], ["A"&1,"{RSHIFT}","Right Shift"], _
[13,"{Pause}","Pause"], [14,"{CAPSLOCK}","Caps Lock"], [1&"B","{ESC}","Esc"], [20,"{SPACE}","Spacebar"], [21,"{PGUP}","Page Up"], [22,"{PGDN}","Page Down"], [23,"{End}","End"], _
[24,"{Home}","Home"], [25,"{Left}","Left Arrow"], [26,"{UP}","Up Arrow"], [27,"{Right}","Right Arrow"], [28,"{Down}","Down Arrow"], [12,"{ALT}","Alt"], [5&"C","{RWIN}","Right Windows"], _
[2&"C","{PRINTSCREEN}","Print Screen"], [2&"D","{INS}","Ins"], [2&"E","{DELETE}","Del"], [30,0,"0"], [31,1,"1"], [32,2,"2"], _
[33,3,"3"], [34,4,"4"], [35,5,"5"], [36,6,"6"], [37,7,"7"], [38,8,"8"], [39,9,"9"], _
[41,"a","A"], [42,"b","B"], [43,"c","C"], [44,"d","D"], [45,"e","E"], [46,"f","F"], [47,"g","G"], _
[48,"h","H"], [49,"i","I"], [4&"A","j","J"], [4&"B","k","K"], [4&"C","l","L"], [4&"D","m","M"], [4&"E","n","N"], _
[4&"F","o","O"], [50,"p","P"], [51,"q","Q"], [52,"r","R"], [53,"s","S"], [54,"t","T"], [55,"u","U"], _
[56,"v","V"], [57,"w","W"], [58,"x","X"], [59,"y","Y"], [5&"A","z","Z"], [60,"{NUMPAD0}","Keypad 0"], [61,"{NUMPAD1}","Keypad 1"], _
[62,"{NUMPAD2}","Keypad 2"],[63,"{NUMPAD3}","Keypad 3"], [64,"{NUMPAD4}","Keypad 4"], [65,"{NUMPAD5}","Keypad 5"], [66,"{NUMPAD6}","Keypad 6"], [67,"{NUMPAD7}","Keypad 7"], [68,"{NUMPAD8}","Keypad 8"], _
[69,"{NUMPAD9}","Keypad 9"],[6&"A","{NUMPADMULT}","Multiply"], [6&"B","{NUMPADADD}","Add"], [6&"C","{NUMPADENTER}","Separator"],[6&"D","{NUMPADSUB}","Subtract"], [6&"E","{NUMPADDOT}","Decimal"], [6&"F","{NUMPADDIV}","Divide"], _
[70,"{F1}","F1"], [71,"{F2}","F2"], [72,"{F3}","F3"], [73,"{F4}","F4"], [74,"{F5}","F5"], [75,"{F6}","F6"], [76,"{F7}","F7"], _
[77,"{F8}","F8"], [78,"{F9}","F9"], [79,"{F10}","F10"], [7&"A","{F11}","F11"], [7&"B","{F12}","F12"], [90,"{NUMLOCK}","Num Lock"], [91,"{SCROLLLOCK}","Scroll Lock"], _
["A"&2,"{LCTRL}","Left Control"], ["A"&3,"{RCTRL}","Right Control"], ["A"&4,"{LALT}","Left Menu"], ["A"&5,"{RALT}","Right Menu"], [5&"B","{LWIN}","Left Windows"] ]

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

do
for $i = 0 to UBound($sList)-1 step 1
If _IsPressed($sList[$i][0], $sDll) then
DllClose($sDll)
If $sBack <> 0 then
Return $sList[$i][$sBack]
else
Local $sResult[3] = [$sList[$i][0],$sList[$i][1],$sList[$i][2]]
Return $sResult
endif
endif
Next
until $sTime <= TimerDiff($sTimer)
DllClose($sDll)
SetError(1)
EndFunc

[/autoit]

Das Editfenster:

[autoit]

$Edit1 = GUICtrlCreateEdit("", 65, 142, 617, 25, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "")

[/autoit]

Wie schaffe ich es dem Editfenster beizubringen das er den Tabbutton auch anzeigt ohne mir alle vorher eingegebenen Tasten im Editfenster zu löschen ?
Hoffe mal das es nicht wieder zu umständlich gefragt ist.

mfg
oh-ha

oh-ha

hehe, das sollte ich eigentlich schon rückwärts beten können aber beim verstehen hapert noch ein wenig.
Gut das es dieses Forum gibt. Wäre sonst wohl immer noch mit w-bat dran am basteln.

mfg
oh-ha

oh-ha

Habe mich für den Vorschlag von Schnitzel entschieden mit den Array.
Geht so ohne Probleme.
Sind zwar meine absoluten Angstgegner die Array´s aber werde da wohl nicht mehr dran vorbeikommen.

mfg
oh-ha

oh-ha

danke an alle die geholfen haben,

werde das mal testen.

mfg
oh-ha

oh-ha

moin moin,

bekomme die Reihenfolge einer Textdatei immer falsch angezeigt.
Die Textdatei:

Text

{F1}
{F9}
{F6}
{F6}
{Down}
{ENTER}
{F9}
{F1}

Das Skript:

skript

[autoit]

Func testen()
$file = FileOpen(@ScriptDir & "\test2.txt")
$CountLines = _FileCountLines("test2.txt")
For $i = 1 To $CountLines
Next
$start = ShellExecute("C:\lol\lol.exe")
Sleep(2000)
ControlClick("Fehlermeldung","","[CLASS:Button; INSTANCE:1]")
Sleep(3000)
ControlClick("lol","","[CLASS:Button; INSTANCE:1]")
Sleep(1000)
While 1
If WinWaitActive("[CLASS:ThunderRT6FormDC]")Then
$i = $i-1
$line = FileReadLine($file, $i)
Sleep(500)
MsgBox(0,"",$line)
If $i = 1 Then
FileClose($file)
ExitLoop
EndIf
EndIf
WEnd
EndFunc ;==>testen

[/autoit]

Das bekomme ich dann in dieser Reihenfolge angezeigt in der MsgBox:

Reihenfolge

{F1}
{F9}
{ENTER}
{Down}
{F6}
{F6}
{F9}
{F1}

Was mache ich da falsch ?

mfg
oh-ha

oh-ha

moin moin,

hier mal die zusammenstellung CI+Soft und zu welcher Karte.

Zitat

Welches CI-Modul brauche ich?
Das AlphaCrypt Light oder das AlphaCrypt Classic CI-Modul von Mascom funktioniert problemlos mit einer D01 oder D02-Smartcard.

Wo bekomme ich die D02-Smartcard her?
Bei der Bestellung eines Pay-TV-Pakets von Kabel Deutschland oder Sky erhält man die Smartcard.
Wer nur die privaten Sender (RTL usw.) sehen möchte und wo der digitale Empfang bereits Vertragsbestandteil ist, der erhält die Smartcard bei Kabel Deutschland für einmalig 14,90 Euro + 9,90 Euro Versand. Wer den analogen Kabelanschluss über die Mietnebenkosten bezahlt, der kann für 2,90 Euro/Monat den digitalen Empfang buchen.

Bei der Bestellung wird man nach seinem Receiver und der Seriennummer gefragt. Um eine D02-Karte zu erhalten, muss hier unbedingt die Nokia d-box 2 (nicht Sagem!) angegeben werden.

Wo bekomme ich die Seriennummer eines zertifizierten Receivers (d-box) her?
Entweder man besorgt sich tatsächlich eine Nokia d-box 2 und gibt die auf der Rückseite stehende Seriennummer an oder man generiert sich eine Seriennummer.

Im Internet gibt es verschiedene Seriennummer-Generatoren:

Generator von nimmawiedanummakumma
dbox2-tuning.net
seriennummer.rar mit ausführbarem Programm

Ich habe eine D09-Smartcard, läuft diese im AlphaCrypt-Modul?
Nach einer außergerichtlichen Einigung in einem Patentstreit zwischen Mascom und Nagravision werden seitens Mascom keine Module mehr mit Unterstützung der D09-Karten vertrieben.[2]

Die D09-Karten funktionieren noch in AlphaCrypt-Modulen der Version 1.16/3.16 [vom September 2008]
Ein Downgrade auf diese Version ist möglich. Es gibt aber auch Händler, die explizit Module mit dieser Version verkaufen.

quelle:helpdesk.kdgforum

Alles anzeigen

Möglich ist das ohne Probleme.
Man muss halt nur auf ein paar dinge achten.

Edit: Auf gar keinen Fall bei denen nachfragen was für eine cam geht, die riskieren nicht ihren Arbeitsplatz deswegen.

mfg
oh-ha

oh-ha

Denke mal so was in der richtung sollte reichen.
http://www.amazon.de/Technotrend-bu…r/dp/B001J2YYNM plus
dem hier: http://www.amazon.de/AlphaCrypt-Lig…_bxgy_pc_text_b
Wobei ich eigentlich immer sehr enttäuscht über die Media-Programme war oder bin.
Habe mir meinen Media-PC wieder auseinander-genommen und eine Dreambox 800 genommen.
Anscheinend sind die noch nicht so weit vernünftige Media Plattformen zu gestalten oder wollen es nicht.

mfg
oh-ha

oh-ha

Danke,

Mit " dauerhaft Angemeldet " geht es zumindest schon einmal.
Sorry hatte vergessen auf " gelöst " zu stellen
Werde das aber in jeden Fall mal testen da ich so eine fast 100% Sicherheit für mein Programm bekomme.

mfg
oh-ha

oh-ha

OK,

also lasse ich es mal.
Sollen die halt eingeloggt bleiben oder auf dauer stellen.
Werde es mit " _StringEncrypt " Verschlüssen und den Namen zum entschlüsseln in das Skript schreiben.
Dann können die es auch gerne sehen.

mfg
oh-ha

oh-ha

jo, werde noch was Testen, kann ja auch den text selber in den Thread legen und das da dann eventuell so als text runterladen.
Der ist eh für alle anderen unsichtbar. Zugang hat da auch nur die Gruppe die das Programm bekommt.
Mal schauen ob das so machbar ist.

mfg
oh-ha

oh-ha

was aber die Nutzung des Programms auf zwei Personen beschränken würde da ich den FTP Zugang zum Board
in keinerlei Programme verarbeiten möchte.

mfg
oh-ha

oh-ha

Oh man,

war froh das ich das so auf die reihe bekommen habe.
Das ist eher ein vernichtendes Urteil.
Hoffe mal das da noch einer eine Idee hat.

mfg
oh-ha

oh-ha

lol,

Habe das mal so getestet aber da kommt dann immer eine null Byte meldung.

[autoit]

_FF_AutoLogin("xxx", "xxx", "http://www.comag.tv/board/index.php?form=UserLogin", "erfolgreich angemeldet")
Local $hDownload = InetGet("http://www.comag.tv/board/index.php?page=XXXXXXXXXXXXXXX", @TempDir & "\update.dat", 1, 1)
Do
Sleep(250)
Until InetGetInfo($hDownload, 2) ; Prüft, ob der Download fertig ist.
Local $nBytes = InetGetInfo($hDownload, 0)
InetClose($hDownload) ; Schleißt das Handle zu den Ressourcen.
MsgBox(0, "", "gelesene Byte: " & $nBytes)

[/autoit]

mfg
oh-ha

oh-ha

naja aber diejenigen die das Programm benützen dürfen müssen eingeloggt sein um auf die Datei zugreifen zu können.

mfg
oh-ha

oh-ha

moin moin,

Mache mal einen eigenen Post dafür. Hoffe mal das es nicht als doppel post angesehen wird.
Meine den hier:
http://www.autoit.de/index.php?page=Thread&threadID=20260
Wenn ja bitte löschen.

Nun zu meiner Frage.
Möchte eine Textdatei runterladen mit FF aber das am besten unbemerkt.
Diese Datei ist zum entsperren eines Programms von mir. Soll die Weitergabe verhindern sofern das möglich ist.
Die Text Datei:

Code

[murna]
Name=XXX
Pass=955CDB01E4491D9F7ADE

Das was ich bisher habe:

Spoiler anzeigen

[autoit]

Func internet()
_FFStart("http://www.comag.tv")
_FF_AutoLogin("xxx", "xxx", "http://www.comag.tv/board/index.php?form=UserLogin", "erfolgreich angemeldet")

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

If _FFStart("http://www.comag.tv/xxx/xxxxxxxxx") Then
$sText = _FFReadText()
If Not @error Then MsgBox(64,"Text:",StringLeft($sText,300))
$sText = _FFReadText(7)
If Not @error Then MsgBox(64,"Compressed text:",$sText)
EndIf
EndFunc;==>internet

[/autoit]

Nur da wird immer der Download-Manager aufgerufen.
Einer eine Idee wie man das vermeiden kann ?

Ach so, kann die Datei in jeder beliebigen Form ablegen.

mfg
oh-ha

oh-ha

Mache hier mal weiter,

das mit den einloggen geht nun

Spoiler anzeigen

[autoit]

Func internet()
_FFStart("http://www.comag.tv")
_FF_AutoLogin("xxx", "xxx", "http://www.comag.tv/board/index.php?form=UserLogin", "erfolgreich angemeldet")

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

If _FFStart("http://www.comag.tv/xxx/xxxxxxxxx") Then
$sText = _FFReadText()
If Not @error Then MsgBox(64,"Text:",StringLeft($sText,300))
$sText = _FFReadText(7)
If Not @error Then MsgBox(64,"Compressed text:",$sText)
EndIf
EndFunc;==>internet

[/autoit]

nur wie bekomme ich denn jetzt auch noch eine Datei in text Format runtergeladen?
Er fragt nach ob ich speichern oder öffnen möchte und genau diese nachfrage möchte ich vermeiden.
Sollte alles ohne das es der Nutzer mitbekommt ablaufen.

mfg
oh-ha

Beiträge von oh-ha

Text in Zellen splitten

Text in Zellen splitten

Text in Zellen splitten

Tab Taste löscht Inhalt einer Editbox

Tab Taste löscht Inhalt einer Editbox

Zeilen aus Textdatei werden falsch ausgegeben( FileReadLine )

Zeilen aus Textdatei werden falsch ausgegeben( FileReadLine )

Zeilen aus Textdatei werden falsch ausgegeben( FileReadLine )

Zeilen aus Textdatei werden falsch ausgegeben( FileReadLine )

Kabelfernsehn (HDTV) mit TV Karte empfangen?

Kabelfernsehn (HDTV) mit TV Karte empfangen?

Text Datei mit FF runterladen

Text Datei mit FF runterladen

Text Datei mit FF runterladen

Text Datei mit FF runterladen

Text Datei mit FF runterladen

Text Datei mit FF runterladen

Text Datei mit FF runterladen

Text Datei mit FF runterladen

Automatisch in einen Forum anmelden