1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. McPoldy

Beiträge von McPoldy

  • nach neustart die Setups fortsetzen

    • McPoldy
    • 11. März 2008 um 10:40

    Hi Apollo,

    hier der Link zu dem Skript aus dem Video.

  • Hilfe Videos

    • McPoldy
    • 10. März 2008 um 20:56

    Na ja, 750 GB Traffic hab ich auch und bei 600 wird die Notbremse gezogen :) also sollte wohl erst mal reichen, zur Not hab ich noch einen Erstaz Root, der für solche Fälle auch noch zu benutzen ist (heimliche Reserve)

  • Hilfe Videos

    • McPoldy
    • 10. März 2008 um 20:28

    Die ersten jetzt habe ich mit der Demoversion von Camtasia Studio gemacht, welches ich mir auch sehr gerne kaufen würde :love: , aber aus ständigem Geldmangel werde ich die nächsten wohl mit CamStudio machen :( ist auch sehr schön und die Videos werden echt gut wenn man als Codec H.264 nimmt und auch super klein.

    So ich habe mir noch mal die einzelnen Portale angesehen, alles Mist :cursing: wenn ich schon was ins Netz stelle dann aber auch richtig, also werde ich wohl meinen kleinen V-Server behalten müssen und da die Videos drauf bereit stellen.

  • Hilfe Videos

    • McPoldy
    • 10. März 2008 um 18:56

    Ja die Umfrage geht nicht :) was will man machen, ich lade mal grade eine Testdatei hoch nach veoh und stelle gleich mal den Link bereit, dann kann man sich ja mal die Qualität anschauen, wie sie im Webbrowser aussieht und wer hat im installierten Player.

  • Hilfe Videos

    • McPoldy
    • 10. März 2008 um 15:43

    Hallo, man hat doch tatsächlich mal meine Videos bei YouTube ausgegraben :), nun wurde ich gefragt ob ich Sie hier verlinken soll. Das mache ich natürlich auch nur hab da mal ne kleine Frage, da ich die Videos in einer möglichst guten Qualität zeigen will. Ich habe heute mal ein wenig rum gesucht und da ist mir stage6.com wieder eingefallen, was es ja leider nicht mehr gibt, aber man wird nach veoh weiter geschickt.

    So das veoh Protal ist ganz nett, man hat auf jeden fall die Möglichkeit sich Videos in guter Qualität anzusehen, wenn man sich den kleinen Player runter läd. Da ich keine Ahnung habe ob ich meinen Server behalten will kann ich zwar jetzt die Links von meinen Server posten, könnte aber sein das die Videos auf einmal weg sind. Auf YouTube werde ich auf jeden Fall nix mehr veröffentlichen, da bekommt man ja Augenkrebs :)

    Da her eine kleine Umfrage.

  • Erneut Problem mit StrinRegExpReplace

    • McPoldy
    • 9. März 2008 um 12:49
    Zitat von bernd670

    McPoldy, da das money (200 300) ja nur ein Beispiel war hätte die Änderung in Zeile 30 genügt!

    Hast ja recht :)

  • Erneut Problem mit StrinRegExpReplace

    • McPoldy
    • 9. März 2008 um 08:50

    Bernd, fast, da WoW ein der Datei viele Zeilen mit (money (xxxx xxxx)) hat, passt die Suche nicht, also muss er die auch ändern :)

    Zeile 25:
    Von $arr = StringRegExp($meinarray[$nLfd],'\(money \((\d \d)\)\)',3)
    Nach $arr = StringRegExp($meinarray[$nLfd],'\(money \((200 300)\)\)',3)

    Zeile 30:
    Von $newEXP = String($alterWert[1] * $Multiplikator) & ' ' & String($alterWert[2] * $Multiplikator)
    Nach $newEXP = String($alterWert[1]) & ' ' & String($alterWert[2] * $Multiplikator)

    Zeile 31:
    Von $meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'\(money \((\d \d)\)\)','(money (' & $newEXP & '))')
    Nach $meinarray[$nLfd] = StringRegExpReplace($meinarray[$nLfd],'\(money \((200 300)\)\)','(money (' & $newEXP & '))')

    So ungefähr, habs jetzt nicht getestet.

  • Ein Script versuch mit Nero 6.6

    • McPoldy
    • 9. März 2008 um 08:41

    Moin Daveman,

    das ist so eine Sache mit der ID, ich habe schon Setup`s gehabt, wo sich bei jedem Aufruf die ID`s geändert haben, aber ehr selten. Die ID`s nehme ich deshalb gerne, weil wenn jetzt eine neue Version von dem Programm kommt, wo z. B. nur ein Knopf hinzugekommen ist (für Infos oder so) bleiben die ID`s die man für die Installation benötigt die gleichen (meistens).

  • Dieser Crypt Script Mag den Buchstaben Z zu sehr

    • McPoldy
    • 8. März 2008 um 22:47

    :rofl: Zeitgleich gepostet

    Spoiler anzeigen
    [autoit]


    ;Deins
    Run('C:\To-Dat.exe "C:\s00" & GUICtrlRead($Input6) & ".txt"')

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

    ;Meins
    Run('C:\To-Dat.exe C:\s00' & GUICtrlRead($Input6) & '.txt')

    [/autoit]
  • Dieser Crypt Script Mag den Buchstaben Z zu sehr

    • McPoldy
    • 8. März 2008 um 22:38

    Ja ja, es wird später der Wein schmeckt lecker und beim Pocker verliere ich immer, also ein typischer Samstag Abend :)

    CryptDecrypt.rar

    So hab auch mal nen bissel gepastelt mit den Dateien, Skript liegt bei :)

  • Automatische Netzwerkfreigabe für USB Laufwerke

    • McPoldy
    • 8. März 2008 um 22:14

    Nabend,

    ich war heute bei einem Bekannten, der hatte folgendes Problem:
    Er hat als OS Vista Home installiert und nutzt MS Virtual PC 2007 mit einem WinXP. Nun wollte er gerne auf seine Festplatten und USB Laufwerke (in seinem Fall ein Stick) zugreifen, was aber immer im Gastsystem mit einer Fehlermeldung quitiert wurde und mit dem Absturz des Exploer Prozesses. Nun habe ich mir gedacht, mache ich das nicht über das interne Tool von Virtual PC sondern gebe die Laufwerke auf dem Vista System frei und mappe sie mir dann im virtuellen System. Und da kommt das eigentliche Problem, der USB Stick muss ja immer wirder eine Freigabe erhalten wenn er rein gestöpselt wird. Nun der Auftritt von Autoit (Hinweis für pee, ich habe es klein geschrieben ;) ), ich habe das dem USB Stick einen Volumenamen verpasst und ein Skript gepastelt welches immer wieder schaut ob der Stick eingestöpselt ist oder nicht, wenn er ihn das erste mal erkennt gibt er ihn frei, wird er entfernt, wird auch die Freigabe entfernt. So kann mein lieber Bekannter auch über das Netzwerk immer auf seinen USB Stick zugreifen ohne jedes mal diesen per Hand eine Freigabe zu geben.

    Das einzige was zum Skript zu sagen ist, der Stick muss einen Volumenamen haben, und es gibt zwei Parameter bzw. drei, ruft es einfach mal mit -h auf wenn es kompeliert ist.

    Spoiler anzeigen
    [autoit]


    ;Es soll kein TrayIcon angezeigt werden
    #NoTrayIcon

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

    ;Benötigte Includes
    #include <GuiConstantsEx.au3>
    #include <NetShare.au3>

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

    ;Variablen
    Local $VolumeName = 'Usb Stick'
    Local $ShareName = 'Stick' ;Freigabename
    Local $Caption = -1 ;Laufwerksbuchstabe
    Local $Connection = False ;Prüfvariable ob der Stick als angeschlossen erkannt wurde
    Local $var,$parameter ;Hilfsvariablen

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

    ;Commandline Parameter prüfen
    If $CmdLine[0] > 0 Then
    For $var = 1 To $CmdLine[0] step 2
    $parameter = $CmdLine[$var]
    Switch $parameter
    Case '-h'
    MsgBox(64,'USB Hilfe','Folgende Parameter sind möglich:' & @LF & '-v [Volume Name]' & @LF & '-s [Freigabe Name]')
    Exit 0
    Case '-v'
    $VolumeName = $CmdLine[$var + 1]
    Case '-s'
    $ShareName = $CmdLine[$var + 1]
    Case Else
    MsgBox(64,'USB Hilfe','Folgende Parameter sind möglich:' & @LF & '-v [Volume Name]' & @LF & '-s [Freigabe Name]')
    Exit 0
    EndSwitch
    Next
    EndIf

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

    ;Automatische Suchfunktion aktivieren
    AdlibEnable('_CheckUSB',5000)

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

    ;Endlosschleife
    While 1
    Sleep(2000)
    WEnd

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

    ;Diese Funktion prüft ob der USB Stick mit dem VolumeName angeschlossen wurde
    ;wenn ja, dann soll eine Netzwerkfreigabe erfolgen, der Freigabename kommt aus der
    ;Variablen $ShareName.
    ;Wurde der USB Stick getrennt, dann wird die Freigabe wieder entfernt.
    Func _CheckUSB()
    $Caption = -1 ;Laufwerk auf -1 sethen
    ;Mittels WMI prüfen ob das Laufwerk vorhanden ist
    Dim $Obj_WMIService = ObjGet('winmgmts:\\' & @ComputerName & '\root\cimv2')
    If (IsObj($Obj_WMIService)) And (Not @error) Then
    Dim $Col_Items = $Obj_WMIService.ExecQuery('Select * from Win32_LogicalDisk Where VolumeName = "' & $VolumeName & '"')
    Local $Obj_Item
    For $Obj_Item In $Col_Items
    $Caption = $Obj_Item.Caption
    Next
    EndIf ;<= WMI ende

    If $Caption <> -1 And $Connection = False Then ;<= wurde das Laufwerk angeschlossen und noch keine Freigabe durchgeführt
    $Connection = True
    ToolTip('USB Stick wurde an Laufwerk ' & $Caption & ' angeschlossen.',0,0,'Info')
    Sleep(2500)
    ToolTip('')
    _Net_Share_ShareAdd (@ComputerName, $ShareName, 0 , $Caption & '\', "USB Laufwerk")
    ElseIf $Caption = -1 and $Connection = True Then ;<= Wurde der Stick entfernt und die Freigabe noch nicht getrennt.
    $Connection = False
    Run(@ComSpec & ' /c net share ' & $ShareName & ' /delete','',@SW_HIDE)
    EndIf
    EndFunc ;<= Ende Func _CheckUSB()

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
  • Dieser Crypt Script Mag den Buchstaben Z zu sehr

    • McPoldy
    • 8. März 2008 um 21:56

    Zum ersten: Juhu, war schon den Tränen nahe ;)

    Zum zweiten: geht es den auf der Kommandozeile? Falls ja, sollte auch folgendes gehen
    Run('test.exe test.txt','c:\')
    Nur wohin es ausgegeben wird kann ich nicht sagen, ansonsten stell doch mal die Datei zur Verfügung, dann kann man sich davon mal ein Bild machen und hat was zum Spielen :) (meine die test.exe)

  • mir war fad - bloxorz bot ;)

    • McPoldy
    • 8. März 2008 um 21:50

    Danke für den Link, habe bisher immer meine Videos mit der Demo Version vonCamtasia Studio 5 gemacht, aber Freeware ist mir lieber :)


    Edit: 09.03.2008

    So habe mir mal das CamStudio installiert, was hast du für Einstellungen genommen? Wenn ich ein Video als SWF konvertiere und es bei YouTube hochlade, kann er es nicht verarbeiten, Fehler (ungültiges Dateiformat)

    Wäre schön wenn du dazu noch was schreiben könntest.

  • Dieser Crypt Script Mag den Buchstaben Z zu sehr

    • McPoldy
    • 8. März 2008 um 21:39

    Probier mal folgendes

    Spoiler anzeigen
    [autoit]


    #include <array.au3>

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

    Dim $arrASCII[1]
    Dim $oFile = FileOpen('Testdatei.txt',0)
    While 1
    $Zeichen = FileRead($oFile,1)
    If @error = -1 Then ExitLoop
    _Txt2ASCII($Zeichen)
    WEnd
    FileClose($oFile)
    _ArrayDelete($arrASCII,0)
    _ArrayDisplay($arrASCII)

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

    Func _Txt2ASCII($Zeichen)
    $Zeichen = Asc($Zeichen)
    _ArrayAdd($arrASCII,$Zeichen)
    EndFunc

    [/autoit]

    Das sollte dir eine Datei in ein Array schreiben, jedes Feld ist ein Zeichen in ASCII, auch CR und Sonderzeichen.

  • Dieser Crypt Script Mag den Buchstaben Z zu sehr

    • McPoldy
    • 8. März 2008 um 21:22

    Mmmhh, wenn man so viel Zeit da rein gesteckt hat ist es wirklich ärgerlich, das Problem ist eigentlich nur das nicht alle Zeichen so dargestellt werden. Daher kam auch der Kommentar, das man sich die ASCII Zeichen nehmen solle, da hier jedes Zeichen als Zahl dargestellt wird.

    Nun ja, vielleicht haste ja doch noch mal lusten weiter zu machen, bin schon auf dein nächstes Vorhaben gespannt, hast immer interesante Ideen :)
    P.S. Du bist ja auch schon Fortgeschrittener, ich werde wohl immer im Status Lernender bleiben :(

  • Dieser Crypt Script Mag den Buchstaben Z zu sehr

    • McPoldy
    • 8. März 2008 um 21:08

    Nimm es nicht so schwer, bei manchen Sachen kommt man einfach nicht weiter. Aber falls Du doch noch weiter machen möchtest, hier die HEX und ASCII Werte von deinen Sonderzeichen:

    Spoiler anzeigen


    ·2áz‹UÖ†*T'<—eAªÑ›I|àl§½ðdhÌÝ퇴$Ÿ]¸ÊF™¹4¾Ê¶˜ºò9a¨ó‚¥»r-Ô•

    Hex = ASCII
    B7 = 183
    32 = 50
    E1 = 225
    7A = 122
    8B = 139
    55 = 85
    1A = 26
    D6 = 214
    86 = 134
    2A = 42
    54 = 84
    27 = 39
    3C = 60
    97 = 151
    65 = 101
    41 = 65
    AA = 170
    D1 = 209
    9B = 155
    49 = 73
    7C = 124
    E0 = 224
    11 = 17
    6C = 108
    A7 = 167
    81 = 129
    8F = 143
    BD = 189
    F0 = 240
    64 = 100
    1E = 30
    68 = 104
    1B = 27
    CC = 204
    DD = 221
    ED = 237
    12 = 18
    87 = 135
    B4 = 180
    24 = 36
    0E = 14
    9F = 159
    5D = 93
    02 = 2
    B8 = 184
    CA = 202
    46 = 70
    99 = 153
    B9 = 185
    34 = 52
    BE = 190
    CA = 202
    B6 = 182
    10 = 16
    98 = 152
    BA = 186
    F2 = 242
    39 = 57
    61 = 97
    A8 = 168
    F3 = 243
    82 = 130
    A5 = 165
    BB = 187
    03 = 3
    72 = 114
    2D = 45
    15 = 21
    D4 = 212
    95 = 149

  • Ein Script versuch mit Nero 6.6

    • McPoldy
    • 8. März 2008 um 18:26

    Hab mir mal die Version Nero 6.6.1.15a raus gesucht und bei mir klappt die installation mit folgendem Skript, vielleicht kannst du was mit anfangen:

    Spoiler anzeigen
    [autoit]


    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.2.10.0
    Author: J. Kröger

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

    Script Function:
    Installation von Nero 6.6.1.15a

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

    #ce ----------------------------------------------------------------------------

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

    ;Variablen
    Local $Benutzername = 'McPoldy'
    Local $Firmenname = 'AutoIT GmbH und schlag mich tot'
    Local $sn = 'xxxxxxxxxxxxxxxxxxxxxxxxx'

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

    ;Setup starten
    Run('Nero-6.6.1.15a.exe',@ScriptDir)

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

    ;Warten auf Assistent
    WinWaitActive('Nero Ask Toolbar','Nero freut sich, Ihnen zusammen mit dem Nero-Download die kostenlose Ask Toolbar anbieten zu können.')

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

    ;Nero ohne Ask Toolbar installieren
    ControlClick('Nero Ask Toolbar','',1010)

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

    ;Weiter klicken
    ControlClick('Nero Ask Toolbar','',1)

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

    ;Warten auf zweiten Assistenten (Willkommen)
    WinWaitActive('Nero Burning ROM Installations-Assistent','Willkommen im Installations-Assistent für Nero Burning ROM')

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

    ;Weiter klicken
    ControlClick('Nero Burning ROM Installations-Assistent','',1042)

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

    ;Warten auf zweiten Assistenten (Lizenz)
    WinWaitActive('Nero Burning ROM Installations-Assistent','Ich bin mit dem Inhalt der vorhergehenden Lizenzvereinbarung einverstanden')

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

    ;Lizenzvereinbarung akzeptieren
    ControlClick('Nero Burning ROM Installations-Assistent','',1047)

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

    ;Weiter klicken
    ControlClick('Nero Burning ROM Installations-Assistent','',1042)

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

    ;Warten auf zweiten Assistenten (Benutzerinformationen)
    WinWaitActive('Nero Burning ROM Installations-Assistent','Installieren nach:')

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

    ;Benutzername
    ControlSetText('Nero Burning ROM Installations-Assistent','',1015,$Benutzername)

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

    ;Firmenname
    ControlSetText('Nero Burning ROM Installations-Assistent','',1013,$Firmenname)

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

    ;Seriennummer
    ControlSetText('Nero Burning ROM Installations-Assistent','',1014,$sn)

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

    ;Weiter klicken
    ControlClick('Nero Burning ROM Installations-Assistent','',1042)

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

    ;Warten auf zweiten Assistenten (Abschlussfenster)
    WinWaitActive('Nero Burning ROM Installations-Assistent','Der Assistent hat die Installation erfolgreich durchgeführt.')

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

    ;Weiter klicken
    ControlClick('Nero Burning ROM Installations-Assistent','',1072)

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

    ;Weiter klicken
    ControlClick('Nero Burning ROM Installations-Assistent','',1075)

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

    ;Weiter klicken
    ControlClick('Nero Burning ROM Installations-Assistent','',1076)

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

    ;Beenden klicken
    ControlClick('Nero Burning ROM Installations-Assistent','',1040)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
  • aktive Fenster im TrayMenü anzeigen und Nicht-/OnTop setzen

    • McPoldy
    • 8. März 2008 um 17:46

    Habe eine Frage, Du schreibst rückgängig machen, was meinst Du damit genau?

  • Dieser Crypt Script Mag den Buchstaben Z zu sehr

    • McPoldy
    • 8. März 2008 um 17:39

    Hi WoW,

    Du hast da z. B. _Replace("·",(GUICtrlRead($Input1);A stehen, da fehlen noch zwei )) also es müsste so aussehen: _Replace("·",(GUICtrlRead($Input1)));A

  • bestimmte stelle aus txt auslesen

    • McPoldy
    • 7. März 2008 um 21:19

    Ich glaube du solltest dir noch mal in ruhe StringRegExp und StringRegExpReplace anschauen, Beispiele hast du nun genug um mal ein bissel zu testen :)
    (siehe meine Fusszeile)

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™