Hi Apollo,
hier der Link zu dem Skript aus dem Video.
Hi Apollo,
hier der Link zu dem Skript aus dem Video.
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)
Die ersten jetzt habe ich mit der Demoversion von Camtasia Studio gemacht, welches ich mir auch sehr gerne kaufen würde
, 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
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.
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.
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.
McPoldy, da das money (200 300) ja nur ein Beispiel war hätte die Änderung in Zeile 30 genügt!
Hast ja recht ![]()
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.
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).
Zeitgleich gepostet
;Deins
Run('C:\To-Dat.exe "C:\s00" & GUICtrlRead($Input6) & ".txt"')
;Meins
Run('C:\To-Dat.exe C:\s00' & GUICtrlRead($Input6) & '.txt')
Ja ja, es wird später der Wein schmeckt lecker und beim Pocker verliere ich immer, also ein typischer Samstag Abend ![]()
So hab auch mal nen bissel gepastelt mit den Dateien, Skript liegt bei ![]()
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.
;Es soll kein TrayIcon angezeigt werden
#NoTrayIcon
;Benötigte Includes
#include <GuiConstantsEx.au3>
#include <NetShare.au3>
;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
;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
;Automatische Suchfunktion aktivieren
AdlibEnable('_CheckUSB',5000)
;Endlosschleife
While 1
Sleep(2000)
WEnd
;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()
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)
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.
Probier mal folgendes
#include <array.au3>
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)
Func _Txt2ASCII($Zeichen)
$Zeichen = Asc($Zeichen)
_ArrayAdd($arrASCII,$Zeichen)
EndFunc
Das sollte dir eine Datei in ein Array schreiben, jedes Feld ist ein Zeichen in ASCII, auch CR und Sonderzeichen.
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 ![]()
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:
·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
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:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: J. Kröger
Script Function:
Installation von Nero 6.6.1.15a
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];Variablen
Local $Benutzername = 'McPoldy'
Local $Firmenname = 'AutoIT GmbH und schlag mich tot'
Local $sn = 'xxxxxxxxxxxxxxxxxxxxxxxxx'
;Setup starten
Run('Nero-6.6.1.15a.exe',@ScriptDir)
;Warten auf Assistent
WinWaitActive('Nero Ask Toolbar','Nero freut sich, Ihnen zusammen mit dem Nero-Download die kostenlose Ask Toolbar anbieten zu können.')
;Nero ohne Ask Toolbar installieren
ControlClick('Nero Ask Toolbar','',1010)
;Weiter klicken
ControlClick('Nero Ask Toolbar','',1)
;Warten auf zweiten Assistenten (Willkommen)
WinWaitActive('Nero Burning ROM Installations-Assistent','Willkommen im Installations-Assistent für Nero Burning ROM')
;Weiter klicken
ControlClick('Nero Burning ROM Installations-Assistent','',1042)
;Warten auf zweiten Assistenten (Lizenz)
WinWaitActive('Nero Burning ROM Installations-Assistent','Ich bin mit dem Inhalt der vorhergehenden Lizenzvereinbarung einverstanden')
;Lizenzvereinbarung akzeptieren
ControlClick('Nero Burning ROM Installations-Assistent','',1047)
;Weiter klicken
ControlClick('Nero Burning ROM Installations-Assistent','',1042)
;Warten auf zweiten Assistenten (Benutzerinformationen)
WinWaitActive('Nero Burning ROM Installations-Assistent','Installieren nach:')
;Benutzername
ControlSetText('Nero Burning ROM Installations-Assistent','',1015,$Benutzername)
;Firmenname
ControlSetText('Nero Burning ROM Installations-Assistent','',1013,$Firmenname)
;Seriennummer
ControlSetText('Nero Burning ROM Installations-Assistent','',1014,$sn)
;Weiter klicken
ControlClick('Nero Burning ROM Installations-Assistent','',1042)
;Warten auf zweiten Assistenten (Abschlussfenster)
WinWaitActive('Nero Burning ROM Installations-Assistent','Der Assistent hat die Installation erfolgreich durchgeführt.')
;Weiter klicken
ControlClick('Nero Burning ROM Installations-Assistent','',1072)
;Weiter klicken
ControlClick('Nero Burning ROM Installations-Assistent','',1075)
;Weiter klicken
ControlClick('Nero Burning ROM Installations-Assistent','',1076)
;Beenden klicken
ControlClick('Nero Burning ROM Installations-Assistent','',1040)
Habe eine Frage, Du schreibst rückgängig machen, was meinst Du damit genau?
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
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)