GoogelChromeLoader, so heißt mein neues Programm. Ich weiss es, den ChromeLoader gibt es schon bei http://stadt-bremerhaven.de. Ich habe mir die Vorgehensweise des Programm`s angeschaut und habe lange gewartet auf die Funktionen die ich meinem GoogelChromeLoader spendiert habe. Die wichtigste Funktion ist die Übergabe von Internetverweisen, sprich Links oder auch einfach nur einige Startparameter, sowie Drag and Drop unterschiedlichster Dateien die Google Chrome anzeigen bzw. wiedergeben kann.
z.B. datei.htm usw.
datei.url
datei.mp3
datei.jpg usw., um nur einige zu nennen. Einfach ausprobieren würde ich sagen! Googel wird mit jeder neuen Version besser.
Hier nun eine Version für einen Japanischen Gast, deshalb steht auch an den Ordnern JP dran.
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=chrome.ico
#AutoIt3Wrapper_outfile=GoogelChromeLoader.exe
#AutoIt3Wrapper_Res_Comment=Der Quelltext ist natürlich für alle frei und jeder kann ihn nach seinen Bedürfnissen anpassen. Im Klartext der Quelltext unterliegt der (cc) nur die Namensnennung ist erwünscht.
#AutoIt3Wrapper_Res_Description=Zusatzprogramm für GoogelChrome
#AutoIt3Wrapper_Res_Fileversion=0.1.10
#AutoIt3Wrapper_Res_LegalCopyright=© By gabischatz Bad Langensalza
#AutoIt3Wrapper_Res_SaveSource=y
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs==========================================================================================
TITEL: ChromeLoader
VERSION: v0.1.10
LINK: http://www.autoit.de/index.php?page=Thread&threadID=18067
AUTOR: gabischatz
DATE: 02/03/10
HOMEPAGE: https://autoit.de
============================================================================================
[/autoit] [autoit][/autoit] [autoit]Description: Dieses Skript, Startet GoogelChrome.exe
Verpackt mit 7zip von gabischatz am 02.03.2010
gabischatz's Blog .
[/autoit] [autoit][/autoit] [autoit]Das Skript ist flexibel, da es die INI-Datei automatisch erstellt und Switches
standardmäßig aktiviert (wie - Lesezeichen-Menü).
Die INI-Datei kann besonders angefertigt, Einstellungen geändert werden.
Switches können über ChromeLoader.exe weitergegeben werden
(Z. B. GoogelChromeLoader.exe /Help)oder (Z. B. GoogelChromeLoader.exe /TXT)
============================================================================================
Download: http://bad-langensalza.npage.de/downlod_75498709.html
#ce==========================================================================================
;Variablen müssen explizit deklariert werden
AutoItSetOption('MustDeclareVars', 1)
Opt('TrayIconHide', 1) ; 0 = Show, 1 = Hide.
#cs==========================================================================================
#Include
;Erzwingt ein Entwicklungsmodell bei dem nur eine Instanz des Skripts ausgeführt werden darf.
_Singleton("hallo" [, $iFlag = 0])
#ce==========================================================================================
Global $sSettingsName = "PFADE.ini"
Global $sChromePath, $sProfilePath, $sSettingPath, $s_Net_TXT;, $var1, $var2, $var3, $var4, $var5
Global $sincognito, $sEnable, $sStart,$sLesezeichen, $sSicherungPath, $sparameter
Global $WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_VISIBLE,$DS_MODALFRAME,$DS_SETFOREGROUND, $WS_EX_TRANSPARENT
Global $ES_MULTILINE,$ES_WANTRETURN,$WS_TABSTOP,$WS_VISIBLE,$WS_CHILD
_Net() ;prüfen ob Internet verfügbar
[/autoit] [autoit][/autoit] [autoit]Dim $a= _Folders_Read("")
[/autoit] [autoit][/autoit] [autoit]If Not FileExists ($sSettingsName ) Then ;prüfen ob PFADE.ini existiert
;IniWrite ( "filename", "section", "key", "value" ) schreibe Grundwerte in PFADE.ini
IniWrite ($sSettingsName, "Pfade", "program", @ScriptDir&"\Chrome\chrome.exe")
IniWrite ($sSettingsName, "Pfade", "parameter",@ScriptDir&"\PFADE.ini")
IniWrite ($sSettingsName, "Pfade", "profile",@ScriptDir&"\profil")
IniWrite ($sSettingsName, "Pfade", "backup",@ScriptDir&"\Sicherung")
IniWrite ($sSettingsName, "parameter", "parameter",0); 0 = Show, 1 = Hide.
IniWrite ($sSettingsName, "parameter", "Lesezeichen Menü",0); "- Lesezeichen-Menü"
IniWrite ($sSettingsName, "parameter", "Start maximiert",0); "- Start-maximiert"
IniWrite ($sSettingsName, "parameter", "Enable sync",0); "- Enable-sync"
IniWrite ($sSettingsName, "parameter", "incognito",0); "-incognito"
IniWrite ($sSettingsName, "Optionen", "quit", 1)
IniWrite ($sSettingsName, "Optionen", "dateformat", 0)
IniWrite ($sSettingsName, "Optionen", "backupmode", 0)
IniWrite ($sSettingsName, "Optionen", "silent", 0)
IniWrite ($sSettingsName, "Optionen", "compression", "mx0")
EndIf
; IniRead ( "filename", "section", "key", "default" ) Werte auslesen
$sChromePath = IniRead ($sSettingsName, "Pfade", "program", @ScriptDir&"\Chrome\chrome.exe")
$sSicherungPath = IniRead ($sSettingsName, "Pfade", "backup",@ScriptDir&"\Sicherung")
$sProfilePath = IniRead ($sSettingsName, "Pfade", "profile", @ScriptDir&"\Profil")
$sparameter = IniRead ($sSettingsName, "parameter", "parameter",0); 1 = Show, 0 = Hide.
;$var1 = IniRead ($sSettingsName, "Optionen", "quit", 1)
;$var2 = IniRead ($sSettingsName, "Optionen", "silent", 0)
;$var3 = IniRead ($sSettingsName, "Optionen", "dateformat", 0)
;$var4 = IniRead ($sSettingsName, "Optionen", "backupmode", 0)
;$var5 = IniRead ($sSettingsName, "Optionen", "compression", "mx0")
#Region ;prüfen ob Werte übergeben werden müssen
If $sparameter = 1 Then
$sLesezeichen = IniRead ($sSettingsName, "parameter", "Lesezeichen Menü",0); "- Lesezeichen-Menü"
$sStart = IniRead ($sSettingsName, "parameter", "Start maximiert",0); "- Start-maximiert"
$sEnable = IniRead ($sSettingsName, "parameter", "Enable sync",0); "- Enable-sync"
$sincognito = IniRead ($sSettingsName, "parameter", "incognito",0); "-incognito"
Global $sProfile = " "
If $sLesezeichen = 0 Then $sProfile = $sProfile & "- Lesezeichen-Menü "
If $sStart = 0 Then $sProfile = $sProfile & "- Start-maximiert "
If $sEnable = 0 Then $sProfile = $sProfile & "- Enable-sync "
If $sincognito = 0 Then $sProfile = $sProfile & "-incognito "
EndIf
#EndRegion
_startCmd();prüfen ob Werte per Drag end Drop übergeben wurden
Exit ;Programm beenden
[/autoit] [autoit][/autoit] [autoit]#Region ;Überprüfen ob bereits ein Autostart-Eintrag in der Registry besteht
[/autoit] [autoit][/autoit] [autoit]Func _Folders_Read($FolderName)
Local Const $__GoogleChrom_ShellFolders_Reg = "HKEY_CLASSES_ROOT\ChromeHTML\shell\open\command"
Local $Path = RegRead($__GoogleChrom_ShellFolders_Reg,$FolderName)
Return SetError(@error,@extended,$Path)
EndFunc
;Sleep(10)
#EndRegion
#Region ;prüfen ob Internet verfügbar ausführen
Func _Net()
Local $bin = InetGet('https://www.google.de/index.html')
If Not @error Then
;MsgBox(0, '', 'Server erreichbar!')
;MsgBox(0, 'Quelltext der Seite', BinaryToString($bin))
Else
;ConsoleWrite(@error & @CRLF)
MsgBox(0, '', 'Bitte Netzwerk aktivieren!')
EndIf
EndFunc
#EndRegion
#Region ;prüfen ob Werte per Drag end Drop übergeben wurden ausführen
Func _startCmd()
If $CMDLINE[0] <>0 Then
Local $s_CmdString
For $i = 1 To $CmdLine[0]
$s_CmdString &= $CmdLine[$i] & ' ' ;MsgBox(8256,'Information', $s_CmdString)
StringRegExp ( $s_CmdString, ".url", 1 )
If @error = 0 Then
;IniRead ( "filename", "section", "key", "default" )
Local $var1 = iniRead($s_CmdString,"InternetShortcut","URL","");MsgBox(8256,'Information', $var1)
$sProfile = $sProfile & $var1
else
$sProfile = $sProfile & $s_CmdString
EndIf
Next
_Connection($s_CmdString);Auswertung Parameter aufrufen
$sSettingPath = IniRead ($sSettingsName, "Pfade", "parameter",@ScriptDir&"\PFADE.ini")
If $sSettingPath <> @ScriptDir&"\PFADE.ini" Then
Local $sSettingRead= FileRead ($sSettingPath)
$sProfile = $sProfile & $sSettingRead
EndIf
$sProfilePath = ('-user-data-dir="'& $sProfilePath & ' "'& " " & $sProfile )
ShellExecuteWait($sChromePath, $sProfilePath,@ScriptDir)
Else
$sProfilePath = ('-user-data-dir="'& $sProfilePath & ' "'& " " )
ShellExecuteWait($sChromePath, $sProfilePath,@ScriptDir)
EndIf
EndFunc ;==>_startCmd
#EndRegion
#Region ;Auswertung ob Parameter
Func _Connection($s_Parameter) ;MsgBox(8256,'Information', $CmdLine[1]& $av_Parameter)
Local $av_Parameter = _ParseParameterLine($s_Parameter)
Local $s_Net_erw
For $i = 0 To UBound($av_Parameter) - 1
Select
Case $av_Parameter[$i][1] = "name" ;Auswertung ob Parameter.txt
$s_Net_TXT = $av_Parameter[$i][3];MsgBox(8256,'Information', $s_Net_TXT)
IniWrite ($sSettingsName, "Pfade", "parameter",$s_Net_TXT)
Case $av_Parameter[$i][1] = "--" ;Auswertung ob andere Parameter
$s_Net_erw = $av_Parameter[$i][3];MsgBox(8256,'Information', $s_Net_erw)
Case $av_Parameter[$i][1] = "help" ;Auswertung ob Hilfe
#Region ### START Koda GUI section ### Form= ;Create Hilfe Fenster
GUICreate("Hilfe", 504, 246, 265, 250,BitOR($WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_VISIBLE,$DS_MODALFRAME,$DS_SETFOREGROUND), $WS_EX_TRANSPARENT)
GUISetBkColor(0xFFFBF0)
GUISetIcon( @ScriptDir&"\google.ico")
Local $btn_end = GUICtrlCreateButton("OK", 416, 190, 75, 25)
Local $Edit1 = GUICtrlCreateEdit("", 0, 0, 500, 165, BitOR($ES_MULTILINE,$ES_WANTRETURN,$WS_TABSTOP,$WS_VISIBLE,$WS_CHILD), 0)
GUICtrlSetData(-1, @CRLF & _
' Syntax: help' & @CRLF & _
' name=parameter.txt' & @CRLF & _
' --disable-images' & @CRLF & _
' --disable-javascript' & @CRLF & _
' --disable-java' & @CRLF & _
' --disable-plugins' & @CRLF & _
' --incognito' & @CRLF & _
@CRLF & _
' Beispiel Verknüpfung: "Chrome Loader.exe" "--disable-java --incognito"' )
GUICtrlSetFont(-1, 9, 600, 'Arial')
Local $label = GUICtrlCreateLabel("http://src.chromium.org/svn/trunk/src/chrome/common/chrome_switches.cc", 8, 170, 500, 17)
GUICtrlSetCursor (-1, 0)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetFont(-1, 9, 600, 4, 'Arial')
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Local $nMsg = GUIGetMsg()
Switch $nMsg
Case $btn_end
Exit ;$GUI_EVENT_CLOSE
Case $label ;Hilfe Link
ShellExecute($sChromePath,"http://src.chromium.org/svn/trunk/src/chrome/common/chrome_switches.cc")
EndSwitch
WEnd
EndSelect
Next
EndFunc ;==>_ParseParameterLine
#EndRegion
#Region ;Function Description
#cs==========================================================================================
Function Name: _ParseParameterLine($CMDString)
Description:: Parses a CMD-String to Parameters with Values
Parameter(s): $CMDString -> String to parse
Requirement(s): ?
Return Value(s): Error: o and @error = StringRegExp-Error
Success: 2 Dimensional Array:
$array[$i][0] : Parameter includind value
$array[$i][1] : Parameter
$array[$i][2] : Value mit Anführungszeichen (nur wenn Wert Anführungszeichen)
$array[$i][3] : Value ohne Anführungszeichen
Author(s): Prog@ndy
Modified by Patric Pendelin
Cmd Syntax:
/help=Hilfe
/name=Parameter.txt
Beispiel: "Programm.exe" "/help=Hilfe /name=Parameter.txt"
Befehlszeile genannte Argument Parser, welche Werte und beinhalten können "\" "Flucht für Zitate in einem Wert angegeben.
Nicht kotierte Werte können Buchstaben, Leerzeichen oder nur unterstreichen.
Argument Namen können Buchstaben, Leerzeichen oder nur unterstreichen.
Argumenttrennzeichen können werden "-" oder "/" und Name-Wert-Trennzeichen kann ":" oder "=".
Alle Argumente müssen genannt werden. Leerzeichen sind nicht zulässig in
Basis: http://regexlib.com/REDetails.aspx?regexp_id=1220
#ce==========================================================================================
#EndRegion
#Region ;Parses a CMD-String to Parameters with Values
Func _ParseParameterLine($CMDString)
Local $y, $j, $i, $entry
Local $x = StringRegExp($CMDString, '(?:\s*)(?<=[-|/])(?\w*)(?:(?:[:|=](?:("(?.*?)(?[\w\d|\.\-]*)))|\w*?)', 4)
If @error Then Return SetError(@error, 0, 0)
MsgBox(8256,'Information', $CMDString)
Local $ResultArray[UBound($x)][4]
For $i = 0 To UBound($x) - 1
$entry = $x[$i]
For $y = 0 To UBound($entry) - 1
$j = $y
If $y > 3 Then $j = 3
$ResultArray[$i][$j] = $entry[$y]
Next
Next
Return $ResultArray
MsgBox(0,"" ,$ResultArray)
EndFunc ;==>_ParseParameterLine
#EndRegion
Leider meldenAntiVir Version 8.2.1.172 letzte Aktualisierung 2010.02.25 SPR/AutoIt.Gen
McAfee-GW-Edition 6.8.5 2010.02.25 Riskware.AutoIt.Gen
Symantec 20091.2.0.41 2010.02.25 Suspicious.Insight
GoogelChromeLoader als Virus, nach dem Compilieren.
exe --> zip-File MD5 :c4f1daa8f8b54cc042c092cee
au3 --> MD5 :7da23d8614cd4e5701f8a588941bbf5c