Beiträge von johnnyboyy

johnnyboyy

stimmt...sry
aber mit $data=StdOutRead("java.exe") bekomme ich kein output , einfach alles leer ....

johnnyboyy

@winsetstate
ja , ne funktioniert nicht so leicht , da der server eine parallele datei ist (java in konsole) aber habe mich grade bissl durchgelesen und mit shellexecute kann ich das server hiden

johnnyboyy

hallo wie man der überschrift auslesen kann suche ich eine möglichkeit ein Konsolenfenster auszublenden und den inhalt in eine Editbox einfügen.
das spiel heißt Minecraft und ich will das Konsolenfenster weg kriegen (habe server am laufen server)
bin zurzeit soweit :

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("minecraft server tool", 789, 484, 192, 114)
$startserver = GUICtrlCreateButton("Start Server", 8, 8, 115, 25, $WS_GROUP)
$servertype = GUICtrlCreateCombo("choose the server type", 128, 8, 145, 25)
GUICtrlSetData(-1, "Normalx86|Normalx64|Hey0x86|Hey0x64")
$console = GUICtrlCreateEdit("", 8, 40, 769, 409)
GUICtrlSetData(-1, "<The Minecraft Server Tool>")
$command = GUICtrlCreateInput("", 8, 456, 649, 21)
$send = GUICtrlCreateButton("Send", 664, 454, 75, 25, $WS_GROUP)
$cmds = GUICtrlCreateButton("cmds", 744, 454, 35, 25, $WS_GROUP)
$Button1 = GUICtrlCreateButton("Open Server properties", 656, 8, 123, 25, $WS_GROUP)
$restart = GUICtrlCreateButton("Restart Server", 384, 8, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Reload everything", 280, 8, 91, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $startserver
$servert = GUICtrlRead($servertype)
If $servert = "Normalx86" Then
Run('"'&@ProgramFilesDir&'\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui')
sleep(2000)
GUISetState(@SW_HIDE,"0x00000000003C0342")
ElseIf $servert = "Normalx64" Then
Run('"'&@ProgramFilesDir&'(x86)\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui')
EndIf
EndSwitch
WEnd

[/autoit]

johnnyboyy

eigentlich wollte ich es alleine mit etwas hilfe machen...
aber so wäre ein link ganz schön nett

johnnyboyy

Hallo , ich wollte mir ein youtube downloader basteln , hat bis jetzt auch super geklappt.
Nur möchte ich das er die dateien mit dem Youtube namen Kennzeichnet und alle " :-,;._/()=?`´ß}][{&%$§"!°^ " entfernt weil eine datei ja keine sonderzeichen haben darf...
aber ich komme nicht weiter. bei jedem versuch kommt immer kein name ... ich glaube ich mache alles falsch , könnt ihr mir bitte helfen?
hier meine scripts

"Abfrage ohne Namenssuche"

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_SaveSource=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

#include <inet.au3>
#include <string.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

;####################### GRAPHICAL USER INTERFACE ############################################
$Form1 = GUICreate("YouTube Video Downloader", 332, 130, 192, 124)
$Label1 = GUICtrlCreateLabel("Vollständigen Youtube Link eingeben :", 8, 8, 186, 13)
$dwninput = GUICtrlCreateInput("http://www.youtube.com/watch?v=XXxxXXxxXXxx", 8, 24, 249, 21)
$download = GUICtrlCreateButton("==> Download Link Erstellen <==", 8, 48, 251, 21, $WS_GROUP)
$Input2 = GUICtrlCreateInput("Download LINK", 8, 72, 249, 21)
$Label2 = GUICtrlCreateLabel("Qualität =", 264, 8, 49, 17)
$qualli = GUICtrlCreateInput("18",265,27,"50","21",$ES_CENTER)
GUICtrlSetLimit($qualli, 2)
$QNFO = GUICtrlCreateButton("Info",265,50,50,21)
$DLDL = GUICtrlCreateLabel("<= Copy",265,76,50,21)
$Status = GUICtrlCreateLabel("percent",265,99,999,21)
$Progress1 = GUICtrlCreateProgress(8, 96, 250, 17)
GUISetState(@SW_SHOW)
;####################### GRAPHICAL USER INTERFACE ############################################

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

$Percent = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $QNFO
MsgBox(64,"QNFO","Die Quallität wird in zahlen eingegeben"&@CRLF&"LD = 17"&@CRLF&"HQ = 18"&@CRLF&"HD = 22")
Case $download
GUICtrlSetState($download ,$GUI_DISABLE)
$Video_Q = GUICtrlRead($Qualli)
$dwnlink = GUICtrlRead($dwninput)
$sCode = _INetGetSource($dwnlink)
$token = StringRegExp($sCode, "&t=(.*?)&", 3)
If Not IsArray($token) Then
MsgBox(0, "Error", "Ungültiger Link!")
Else
$value = StringMid($dwnlink, StringInStr($dwnlink, "v=") + 2)
GUICtrlSetData($Input2,"http://youtube.com/get_video?video_id=" & $value & "&t=" & $token[0]& "&fmt="&$Video_Q)
EndIf
$Antwort = InputBox("Antwort","möchten sie dieses Video downloaden? ja/nein","ja")
if $Antwort = "ja" Then
$link = GUICtrlRead($Input2)
$name = ".mp4"
$load = InetGet($link,$name,1,1)
Do
$filesize = InetGetInfo($load, 1)
Sleep(100)
GUICtrlSetData($Progress1,(InetGetInfo($load, 0)/$filesize)*100)
$Percent = Round((InetGetInfo($load,0)/$filesize)*100,0)
GUICtrlSetData($Status,$Percent & "% loaded")
Until InetGetInfo($load, 2)
GUICtrlSetData($Status, "Finish")
EndIf
GUICtrlSetState($download ,$GUI_ENABLE)
EndSwitch

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

WEnd

[/autoit]

"Ohne Abfrage mit namenssuche"

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_SaveSource=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

#include <inet.au3>
#include <string.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

;####################### GRAPHICAL USER INTERFACE ############################################
$Form1 = GUICreate("YouTube Video Downloader", 332, 95, 192, 124)
$Label1 = GUICtrlCreateLabel("Vollständigen Youtube Link eingeben :", 8, 8, 186, 13)
$dwninput = GUICtrlCreateInput("http://www.youtube.com/watch?v=XXxxXXxxXXxx", 8, 24, 249, 21)
$download = GUICtrlCreateButton("==> Download Link Erstellen <==", 8, 48, 251, 21, $WS_GROUP)
$Input2 = GUICtrlCreateInput("Download LINK", 8, 96, 249, 21)
$Text = GUICtrlCreateInput("its here", 8, 200, 249, 21)
$Label2 = GUICtrlCreateLabel("Qualität =", 266, 8, 49, 17)
$qualli = GUICtrlCreateInput("18",265,27,"50","21",$ES_CENTER)
GUICtrlSetLimit($qualli, 2)
$QNFO = GUICtrlCreateButton("Info",265,50,50,21)
$DLDL = GUICtrlCreateLabel("<= Copy",265,99,50,21)
$Status = GUICtrlCreateLabel("percent",265,76,999,21)
$Progress1 = GUICtrlCreateProgress(8, 72, 250, 17)
GUISetState(@SW_SHOW)
;####################### GRAPHICAL USER INTERFACE ############################################

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

$Percent = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $QNFO
MsgBox(64,"QNFO","Die Quallität wird in zahlen eingegeben"&@CRLF&"LD = 17"&@CRLF&"HQ = 18"&@CRLF&"HD = 22")
Case $download
GUICtrlSetState($download ,$GUI_DISABLE)
$Video_Q = GUICtrlRead($Qualli)
$dwnlink = GUICtrlRead($dwninput)
$sCode = _INetGetSource($dwnlink)
$Text2 = GUICtrlRead($Text)
$Link = GUICtrlRead($Input2)
$token = StringRegExp($sCode, "&t=(.*?)&", 3)
If Not IsArray($token) Then
MsgBox(0, "Error", "Ungültiger Link!")
Else
$value = StringMid($dwnlink, StringInStr($dwnlink, "v=") + 2)
GUICtrlSetData($Input2,"http://youtube.com/get_video?video_id=" & $value & "&t=" & $token[0]& "&fmt="&$Video_Q)

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

$source = _INetGetSource($dwnlink)
$array = _StringBetween($source, '<title>', '</title>')
$videoname = StringTrimLeft($array[0], 17)
$newname = StringReplace($videoname,":"," ")
GUICtrlSetData($Text2,$newname)
MsgBox("","",$Text2)
$dateiname = $Text2&".mp4"
$load = InetGet($link,$dateiname,1,1)
Do
$filesize = InetGetInfo($load, 1)
Sleep(100)
GUICtrlSetData($Progress1,(InetGetInfo($load, 0)/$filesize)*100)
$Percent = Round((InetGetInfo($load,0)/$filesize)*100,0)
GUICtrlSetData($Status,$Percent & "% loaded")
Until InetGetInfo($load, 2)
GUICtrlSetData($Status, "Finish")
MsgBox(0, "", StringTrimLeft($array[0], 17)&@CRLF&"wurde fertig gedownloaded")
GUICtrlSetState($download ,$GUI_ENABLE)
EndIf
EndSwitch
WEnd

[/autoit]

johnnyboyy

Unter
Windows 7 alles: 32/64
Vista alles: 32/64

einfach ein

[autoit]

#RequireAdmin

[/autoit]

hinzuhügen , Tada so gings bei mir

johnnyboyy

also ich bin AutoIt fan^^

johnnyboyy

welche Value...?

EDIT : habe die lösung man muss eine .reg datei erstellen mit diesen Werten (von neu TXT abgeändert) dann kommt das auch ins Context von Neu

"Der inhalt der .reg datei"

Code

REGEDIT4


[HKEY_CLASSES_ROOT\.bat]
@="batfile"
"PerceivedType"="text"
"Content Type"="text/plain"


[HKEY_CLASSES_ROOT\.bat\OpenWithList]
@=""


[HKEY_CLASSES_ROOT\.bat\PersistentHandler]
@="{5e941d80-bf96-11cd-b579-08002b30bfeb}"


[HKEY_CLASSES_ROOT\.bat\ShellNew]
"NullFile"=""

Alles anzeigen

johnnyboyy

okay ich verstehe da garnichts ...
gibt es nicht auch etwas anderes?

johnnyboyy

Hallo erstmal.

Ich habe bei google nicht viel darüber gefunden , oder nur falsch gesucht.

Wie kann ich in das Context menu , Rechtsklick -> Neu etwas hinzufügen , ich möchte da ein .Bat datei also eine Neue Batch Anwendung die Leer ist.

Wie ist sowas zu machen? Wenn jemand helfen kann bin ich mir sicher die Autoit.de Community.

johnnyboyy

gebt da mal lol ein xD^^

johnnyboyy

Eigener Messenger , Quellcode geben?
das ist kein eigener...

johnnyboyy

ich hab das entfernt aber wenn ich dann draufklicke geht das nicht mehr runter.... nachdem ich auf Abbrechen geklickt habe

johnnyboyy

danke ideas2code funktioniert prima^^ habe inetgetinfo übersehen^^

johnnyboyy

wie soll ich das mit Do Until machen??

sorry benutze diese Funktionen kaum...

johnnyboyy

@InetGetActive funktioniert bei mir nicht mehr seit der neuen version...

johnnyboyy

.... genau das weiß ich ja nicht wies geht......

johnnyboyy

ich weiß nicht wie ich ein Download progress machen kann in der neuen autoit version ...
bräuchte da bissl hilfe

"Skript"

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 339, 135, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 321, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("======> Download <======", 8, 32, 323, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(8, 64, 326, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetSimple($StatusBar1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
$link = GUICtrlRead($Input1)
$name = InputBox("Please enter a name !","filename")
inetget($link,$name,1,1)
EndSwitch
WEnd

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

func _Download()
; weiß nicht
; wie das geht
; deswegen frage
; ich ja auch^^
_GUICtrlStatusBar_SetText($StatusBar1, "Download Abgeschlossen")
EndFunc

[/autoit]

"FertigesScript"

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Downloader!", 339, 112, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 0, 8, 339, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$Button1 = GUICtrlCreateButton("======> Download <======", 0, 32, 339, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(0, 60, 339, 25)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetSimple($StatusBar1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Percent = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
$link = GUICtrlRead($Input1)
$name = InputBox("Please enter a name !","filename")
$load = InetGet($link,$name,1,1)
Do
$filesize = InetGetInfo($load, 1)
Sleep(100)
GUICtrlSetData($Progress1,(InetGetInfo($load, 0)/$filesize)*100)
$Percent = Round((InetGetInfo($load,0)/$filesize)*100,0)
_GUICtrlStatusBar_SetText($StatusBar1,"schon "& $Percent & "% Gedownloadet")
Until InetGetInfo($load, 2)
_GUICtrlStatusBar_SetText($StatusBar1, "Download Abgeschlossen")
EndSwitch
WEnd

[/autoit]

johnnyboyy

ist das normal das wenn ich Abbrechen drücke das ding immerwieder runterkommt? weil das stört ein Klitzekleines bisschen...
Habe Windows 7 Ultimate 32bit

johnnyboyy

Vielen dank!!!
Es klappt jetzt alles wunderbar.

Beiträge von johnnyboyy

Serverprohramm konsole Hiden

Serverprohramm konsole Hiden

Serverprohramm konsole Hiden

myYouTube Downloader.

myYouTube Downloader.

Desktop UDF

Wie sieht euer Desktop aus?

Context menu -> Neu

Context menu -> Neu

Context menu -> Neu

(kleine) Konsole

Eingener messenger

Games for Windows Live GUI

Downloader

Downloader

Downloader

Downloader

Downloader

Games for Windows Live GUI

Windows 7 macht zicken