Ok Leute eine neue Version ist oben verfügbar
beschreibeung steht dabei
und für FunHacker wird der alte Ordner gleich automatisch mitgelöscht MFG
Beiträge von Eistee
-
-
ich habe in der momentanen version die Standart transparenz auf 30 % stehen die anderen sind weiter auswählbar ich ersetze die dateien nur nicht bei jeder neuen version erst morgen abend wird es eine neue version geben
Neue Features :
1. Die Hotkeys sorgen jetzt nicht mehr für hängen bleiben des Programms
2. Wenn man jetzt URLs anpasst werden die einträge sofort übernommen und nicht erst beim schließen des Anpassers
3. Die SideBar läuft ab jetzt Standartmäßig bei 30 % TransparenzBis Morgen Abend hoffentlich implimentierte Features :
1. Wenn man https://autoit.de/www.lokalisten.de aufrufen möchte loggt sich das programm gleich ein
2. Die Transparenz wird beim nächsten Start mit der Letzten einstellung übernommen
3. Die SideBar läuft jetzt OnTop
4. Beim mouseover wird die transparenz auf 0% gestellt bis man die Maus wieder wegbewegtMFG Eistee
-
@FunH@cker tut mir leid dann weiss ich es auch nicht ich habe bereits die neue version hochgeladen..
@all vielen dank für euer Lob und eure Kritik, ich weiss Optisch macht das Prog noch nichts her leider
aber ich denke mal ich wollte erst das die Funktionen laufen und werde mich in zukunft wenn ich mit diesen zufrieden bin hinsetzen und ein ansprechenderes design einauenMFG
-
Cool Vielen dank leute es läuft mit beidem
-
ne sind se GottseiDank nicht
du musst vorher unter C:\BS den XP_SideBar ordner löschenMFG
-
Auch wenn es ein kostenloses Spiel ist tut mir Leid
Hier gibt es KEINE Bot unterstützungsry
-
Hallo Lieb autoit gemeinde ich habe mal wieder eine frage :
kan ich folgenden script so umschreiben das er nur läuft wenn ein process namens XP-SideBar.exe an ist ?
und wenn ja wie ? Freue mich auf eure antwortenMFG
Spoiler anzeigen
[autoit]#include <Misc.au3>
[/autoit]
#NoTrayIcon
While 1
sleep (50)
If _IsPressed("12") And _IsPressed("70") Then _calc ()
If _IsPressed("12") And _IsPressed("71") Then _media ()
If _IsPressed("12") And _IsPressed("72") Then _inf ()
If _IsPressed("12") And _IsPressed("73") Then _paint ()
If _IsPressed("12") And _IsPressed("74") Then _ie ()
If _IsPressed("12") And _IsPressed("75") Then _ff ()
If _IsPressed("12") And _IsPressed("76") Then _shut ()
If _IsPressed("12") And _IsPressed("77") Then _neu ()
If _IsPressed("12") And _IsPressed("78") Then _stan ()
wend
Func _calc ()
ShellExecute("calc.exe")
EndFunc
Func _inf ()
ShellExecute("msinfo32.exe")
EndFunc
Func _media ()
ShellExecute("wmplayer.exe")
EndFunc
Func _Paint ()
ShellExecute("mspaint.exe")
EndFunc
Func _IE ()
ShellExecute("iexplore.exe")
EndFunc
Func _FF ()
ShellExecute("firefox.exe")
EndFunc
Func _Shut ()
Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC Herunterfahren ?" & @TAB)
If $var = 6 Then
MsgBox(0,"Shutdown", "Einen schönen Tag noch.",2)
Shutdown(1)
EndIf
EndFunc
Func _neu ()
Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC Neustarten ?" & @TAB)
If $var = 6 Then
MsgBox(0,"Neustart", "Bis gleich.",2)
Shutdown(2)
EndIf
EndFunc
Func _stan ()
Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC in Standby ?" & @TAB)
If $var = 6 Then
MsgBox(0,"Standby", "Ich geh dan mal schlafen.",2)
Shutdown(64)
EndIf
EndFunc -
UUps das waren die testseiten zum entfernen xD ich tausche gelich die Textdatei aus
MFG
EDIT ::::::::::::::::::
1er Post geändertJetzt Version 3.5
Übers das Tray menu jetzt Transparenz einstellbar
und die Linkliste wie von FunH@cker bemerkt nochmal angepasstMFG
-
Ah dann is ja gut danke dir Herzlich
MFG
-
Sirocool
welches OS verwendest du ? ich habe XP und es geht über beenden zu kommt evtl. ne meldung oder hängt es sich auf ?
kannste mir evtl. sagen wo der fehler sein könnte das es bei anderen nicht geht ?MFG
P.s. es kann sein das du ein wenig warten muss da ein processwaitclose drinne ist bis er damit durch ist evtl. ist es dann zu ansonsten muss ich halt auch noch ein timeout mit rein bauen aber dann bleibt die hotkey funktion on wenn das prog zu ist muss ich mal gucken oder vielleicht ist mein programm zu leistungshungrig hab ein Quad system vielleicht liegts dadran aber eher unwarscheinlich...
naja mal schauen -
Das Liegt meiner Meinung nach schon an Vista, da ich es nach jeder einzelnen Änderung getestet habe.
das die SideBar nach URLs bearbeiten kurz verschwindet ist durchaus Absicht da sie die jetzt ja anders lautende Textdatei erneut einlesen soll und nicht erst beim nächsten Neustart daher wird sie kurz beendet und wieder gestartet
ich kann in der Combobox einwandfrei alles ohne Fehlermeldung auswählen, beenden und about Funktionieren hier im Tray auch einwandfrei
die 0 ms heissen das du 0ms Ping auf google.de hast
bei transparenz weiss ich im Moment nicht wie das umzusetzen wäre evtl. haste einen Vorschlag ?
für was hättest du gerne Drag and Drop im Edit feld ? der is ja eig. nur für kleine notizen da und ja was da steht wird gespeichert wenn du die sidebar unten beendest beim nächsten start steht drinnen was beim beenden drinn standMFG Eistee
P.S. ich denke das es fehler geben kann ist hier klar, ich dachte dabei auch eher an die XP-User xD
-
Hallo Liebe Gemeinde
Ich habe für mich und meine Freunde eine SideBar mit einigen Funktionen unter Windows Xp geschrieben da wir Vista nicht benutzen möchten, aber es ziemlich praktisch finden eine SideBar zu haben.
Mittlerweile bin ich Fertig und ziemlich zufrieden mit dem Ergebnis.
Ich stelle es mal hier rein falls ihr auch verwendung dafür habt.
Funktionen :
Uhr, Datum, IP, Ping, Öffnen verschiedener Internetseiten, VolumeControl, Taschenrechner, Mediaplayer ausführen, PC-Informationen anzeigen, Paint ausführen, Internet Explorer öffnen, FireFox öffnen, Ein Notizblock und eine ShutdownControl
Für Kritk, Lob und Anregungen wäre ich sehr dankbarMFG Eistee
Version Beta 2.6 :
Uhr jetzt grafisch, Transparentz geht bei MausOver zurück, mit F9 OnTop setzen, neues Icon Codes ein wenig Sauberer, Bugs entfernt.Version 1.0 :
TrayMenu mit design
Scripte gesäubert usw.Edit :::
Version 1.0.1
SideBar jetzt Grafisch Designt
kleine Schönheitskorrekturen
kompakter erstelltEdit2 :::
Version 1.0.5
kleine korrekturen
Buttons jetzt belegbar mit programmen eurer Wahl
animation beim schließen
Datums Label Flackert nicht mehrMFG Eistee
-
vielen dank schnuffel kann man evtl. noch überprüfen ob auf der Seite momentan das mail.gif angezeigt wird ?
weil im endeffekt will ich nur überprüfen ob nachrichten da sind und das in einer gui darstellen
MFG
-
Hallo liebe Gemeinde
ich versuche gerade ein script zu schreiben das automatisch alle 5 min. auf www. lokalisten.de nachsieht ob ich post habe, ich habe auch bereits das wort lokalisten in der suche eingegeben und bin schon mal für den ersten schritt fündig geworden wie man die Seite im IE aufruft und sich einloggen kann allerdings das ist auch mein erstes problem ruft der script nur Loka auf aber loggt sich nicht einIch erhalte folgenden FehlerCode und weiss nicht was damit gemeint ist
Spoiler anzeigen
--> IE.au3 V2.4-0 Error from function _IENavigate, $_IEStatus_InvalidObjectType
Ich hoffe ihr könnt mir Helfen, hier der angesprochene Script :
Spoiler anzeigen
[autoit]#include <IE.au3>
[/autoit] [autoit][/autoit] [autoit]$ie = _IECreate("www.lokalisten.de")
[/autoit]
$oie = _IEFormGetCollection($ie, 0)
$Username = _IEGetObjByName($oie, "j_username")
_IEFormElementSetValue($Username, "++++++")
$Passwort = _IEGetObjByName($oie, "j_password")
_IEFormElementSetValue($Passwort, "++++++")
sleep(8900)
_IENavigate($oie,"javascript:window.document.forms[0].submit()")MFG Eistee
-
ok vielen dank euch beiden aber ich denke progandy hat recht es ist ziemlich schwer daher lasse ich es sry und danke nochmal
-
Hallo Liebe Gemeinde
Ich habe mir ja eine Xp sidebar geschrieben, da ich allerdings diese immer laufen habe ist es auf dauer störend wenn die Fenster beim maximieren unter meine GUI rutschen weshabl ich gerne windows sagen möchte das ab jetzt schon 190 pixel vorher schluss ist
ist das schon mal gemacht worden ? wäre das möglich und wenn ja wie ? freue mich auf eure antworten.MFG Eistee
-
cool hatt geklappt danke dir
-
wie soll das bitte funktionieren ?
ich habe ein programm das eine .txt erstellt in dem die urls so angegeben sind wie in meinem ersten post beschrieben und ich will ein zusatzprogramm schreiben das mir ermöglicht einzelne elemente zu löschen oder hinzuzufügen
das ganze ist im endeffekt für eine Combobox gedacht wie sollte ich so etwas also realisieren ?MFG
-
Hallo Libe Gemeinde
ich habe eine textdatei die folgendermassen aus sieht : https://autoit.de/www.autoit.de|https://autoit.de/www.lokalisten.de|https://autoit.de/www.gmx.de usw.
wie könnte ich es anstellen das die datei geöffnet wird und z.b. |https://autoit.de/www.lokalisten.de| durch einen | ersetzt wird ?
mir fällt kein ansatz ein ? ich hoffe ihr könnt mir helfen
MFG EisteeP.S. hier der Script
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include<Array.au3>Global $fileliste = "C:\BS\XP-SideBar\line.txt"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $liste = FileReadLine($fileliste,1)$Form1 = GUICreate("Form1", 163, 51, 518, 475)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000)$Button1 = GUICtrlCreateButton("Entfernen", 0, 24, 75, 25, 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetCursor (-1, 0)$Button2 = GUICtrlCreateButton("Hinzufügen", 87, 24, 75, 25, 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetCursor (-1, 0)$Combo1 = GUICtrlCreateCombo("www.google.de", 0, 0, 161, 25)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData(-1, $liste)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
entf ()
EndSwitch
WEndFunc entf ()
[/autoit] [autoit][/autoit] [autoit][/autoit] -
Hallo liebe Gemeinde ich habe ein Prob
ich habe mir selbst eine sidebar geschrieben um die umstellung von win 7 auf XP zu erleichtern und ich hätte gerne einen kalender mit eingebaut das problem ist nur leider das ich relativ wenig platz habe weshalb ich den kalender (in einer Group) gerne ein oder ausblenden können würde welche optionen habe ich denn da zur verfügung ?
Freue mich schon auf eure antworten
MFG Eistee
p.S. hier der bisherige script
Spoiler anzeigen
[autoit]#include <DateTimeConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <audio.au3>
#Include <Constants.au3>Global $MicVol = _SoundGetMicrophoneVolume ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global $Vol = _SoundGetMasterVolume ()Opt('WinTitleMatchMode', 4)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$aTaskbarPos = WinGetPos('classname=Shell_TrayWnd')
$iWidth = 190
$iHeight = @DesktopHeight
$iLeft = $aTaskbarPos[2] - $iWidth - 3
$iTop = 0$size = FileGetSize("C:\BS\SideBar\About.exe")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If $size = 0 then _1 ()
Func _1 ()
DirCreate("C:\BS\SideBar")
FileInstall("google.jpg", "C:\BS\SideBar\google.jpg")
FileInstall("Border.jpg", "C:\BS\SideBar\Border.jpg")
FileInstall("loka.jpg", "C:\BS\SideBar\loka.jpg")
FileInstall("gmx.jpg", "C:\BS\SideBar\gmx.jpg")
FileInstall("web.jpg", "C:\BS\SideBar\web.jpg")
FileInstall("ShutDown.jpg", "C:\BS\SideBar\ShutDown.jpg")
FileInstall("Neustarten.jpg", "C:\BS\SideBar\Neustarten.jpg")
FileInstall("Standby.jpg", "C:\BS\SideBar\Standby.jpg")
FileInstall("About.exe", "C:\BS\SideBar\About.exe")
EndFunc$Form1 = GUICreate("Form1", $iWidth, $iHeight, $iLeft, $iTop,$WS_POPUP,$WS_EX_TOOLWINDOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic("C:\BS\SideBar\Border.jpg", 0, 0, 5, $iHeight, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))$Group1 = GUICtrlCreateGroup(" Kalender ", 3, 8, 184, 163)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$MonthCal1 = GUICtrlCreateMonthCal("2009/07/20", 8, 24, 174, 140)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Group2 = GUICtrlCreateGroup(" Uhrzeit ", 3, 174, 184, 41)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
$Label1 = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 68, 193, 51, 19)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Label2 = GUICtrlCreateLabel("VOL. :", 16, 236, 37, 17)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1,"Lautstärke anpassen")
$Label3 = GUICtrlCreateLabel("MIC. :", 16, 268, 38, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetTip(-1,"Microfon Lautstärke anpassen")
$Slider1 = GUICtrlCreateSlider(72, 233, 114, 20)
GUIctrlSetBkColor(-1, 0x000000)
GUICtrlSetLimit(-1,100,0)
GUICtrlSetData(-1, $Vol)
$Slider2 = GUICtrlCreateSlider(72, 265, 114, 20)
GUIctrlSetBkColor(-1, 0x000000)
GUICtrlSetLimit(-1,100,0)
GUICtrlSetData(-1, $MicVol)
$Group3 = GUICtrlCreateGroup(" Volume ", 3, 217, 185, 73)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Pic2 = GUICtrlCreatePic("C:\BS\SideBar\google.jpg", 12, 307, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.google.de auf")
$Pic3 = GUICtrlCreatePic("C:\BS\SideBar\Loka.jpg", 76, 347, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.lokalisten.de auf")
$Pic4 = GUICtrlCreatePic("C:\BS\SideBar\GMX.jpg", 12, 386, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.gmx.net auf")
$Pic5 = GUICtrlCreatePic("C:\BS\SideBar\WEB.jpg", 76, 425, 102, 35, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Ruft http://www.web.de auf")
$Group4 = GUICtrlCreateGroup(" Internet ", 3, 291, 184, 177)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Label4 = GUICtrlCreateLabel(@IPAddress1, 58, 486, 170, 20)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetColor(-1, 0xFFFFFF)
$Group5 = GUICtrlCreateGroup(" IP ", 3, 468, 184, 38)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)$Pic6 = GUICtrlCreatePic("C:\BS\SideBar\ShutDown.jpg", 8, 528, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Herunterfahren")
$Pic7 = GUICtrlCreatePic("C:\BS\SideBar\Neustarten.jpg", 76,528, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Neustarten")
$Pic8 = GUICtrlCreatePic("C:\BS\SideBar\Standby.jpg", 144, 528, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetTip(-1,"Standby")
$Group6 = GUICtrlCreateGroup(" Shut Down Control ", 3, 507, 184, 68)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xC0C0C0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)Opt("TrayMenuMode",1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$AB = TrayCreateItem("About")
$EX = TrayCreateItem("Beenden")
TraySetState()AdlibEnable("UHR",1000)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
$nMsg2 = TRayGetMsg()
Switch $nMsg
Case $Pic6
_Shut ()
Case $Pic7
_neu ()
Case $Pic8
_stan ()
Case $Pic2
_google ()
Case $Pic3
_lokalisten ()
Case $Pic4
_gmx ()
Case $Pic5
_web ()
Case $Slider2
_Mic ()
Case $Slider1
_Vol ()
EndSwitch
Switch $nMsg2
Case $EX
Exit
Case $AB
_AB ()
EndSwitch
WEndFunc UHR ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Label1,@HOUR & ":" & @MIN & ":" & @SEC)
EndfuncFunc _Shut ()
[/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic6)
Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC Herunterfahren ?" & @TAB)
If $var = 6 Then
MsgBox(0,"Shutdown", "Einen schönen Tag noch.",3)
Shutdown(1)
EndIfEndFunc
[/autoit] [autoit][/autoit] [autoit]
Func _neu ()
_AnimButton ($Form1, $Pic7)
Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC Neustarten ?" & @TAB)
If $var = 6 Then
MsgBox(0,"Neustart", "Bis gleich.",5)
Shutdown(2)
EndIfEndFunc
[/autoit] [autoit][/autoit] [autoit]
Func _stan ()
_AnimButton ($Form1, $Pic8)
Sleep(200)
Local $var = MsgBox(32 +4, " Shutdown", "Den PC in Standby ?" & @TAB)
If $var = 6 Then
MsgBox(0,"Standby", "Ich geh dan mal schlafen.",5)
Shutdown(64)
EndIfEndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Func _AnimButton($IDgui, $IDbtn, $delay=300)
Local $pos = ControlGetPos($IDgui, '', $IDbtn)
Local $pWin = WinGetPos($IDgui)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1]+2, $pos[2]-2, $pos[3]-2)
Sleep($delay)
ControlMove($IDgui, '', $IDbtn, $pos[0], $pos[1], $pos[2], $pos[3])
EndFuncFunc _google ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic2)
ShellExecute("http://www.google.de")
EndFuncFunc _lokalisten ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic3)
ShellExecute("http://www.lokalisten.de")
EndFuncFunc _gmx ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic4)
ShellExecute("http://www.gmx.net")
EndFuncFunc _web ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_AnimButton ($Form1, $Pic5)
ShellExecute("http://www.web.de")
EndFuncFunc _Mic ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$NeuVolMIC = GUICtrlRead($Slider2)
_SoundSetMicrophoneVolume($NeuVolMIC)
EndFuncFunc _VOL ()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$NeuVol = GUICtrlRead($Slider1)
_SoundSetMasterVolume($NeuVol)
EndFuncFunc _AB ()
[/autoit]
Run("C:\BS\SIDEBAR\About.exe")
EndFunc