PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

InternetBrowser

https://www.purebasic.fr/german/viewtopic.php?t=5029

Seite 1 von 2

InternetBrowser

Verfasst: 03.10.2005 17:31
von Programie
Ich habe mein brandneuen InternetBrowser!

Hier ist der Sourcecode:

Code: Alles auswählen

Procedure ResizeWebWindow()
ResizeGadget(6, -1, -1, WindowWidth(), -1)
ResizeGadget(7, -1, -1, WindowWidth(), WindowHeight()-52)
EndProcedure
If ReadFile(0,"C:\Windows\System32\Help.ini")
Help$=ReadString()
CloseFile(0)
Else
RunProgram("Confg.exe")
EndIf
If ReadFile(0,"C:\Windows\System32\About.ini")
About$=ReadString()
CloseFile(0)
Else
RunProgram("Confg.exe")
EndIf
Confg$="Confg.exe"
Titel$ ="InternetBrowser 5.0"
If ReadFile(0,"Iconfile.confg")
Icon$=ReadString()
CloseFile(0)
Else
MessageRequester(Titel$,"Icondatei nicht gefunden!",0)
RunProgram("Confg.exe")
EndIf
If Icon$
If ReadFile(0,"Startseite.str")
Seite$=ReadString()
CloseFile(0)
Else
EndIf
If ReadFile(0,"Fav1.nwl")
Fav1$=ReadString()
CloseFile(0)
EndIf
If ReadFile(0,"Fav2.nwl")
Fav2$=ReadString()
CloseFile(0)
EndIf
If ReadFile(0,"Fav3.nwl")
Fav3$=ReadString()
CloseFile(0)
EndIf
If ReadFile(0,"Fav4.nwl")
Fav4$=ReadString()
CloseFile(0)
EndIf
If ReadFile(0,"Fav5.nwl")
Fav5$=ReadString()
CloseFile(0)
EndIf
If ReadFile(0,"Fav6.nwl")
Fav6$=ReadString()
CloseFile(0)
EndIf
If ReadFile(0,"Fav7.nwl")
Fav7$=ReadString()
CloseFile(0)
EndIf
If ReadFile(0,"Fav8.nwl")
Fav8$=ReadString()
CloseFile(0)
EndIf
If ReadFile(0,"Fav9.nwl")
Fav9$=ReadString()
CloseFile(0)
EndIf
If ReadFile(0,"Fav10.nwl")
Fav10$=ReadString()
CloseFile(0)
EndIf
If Fav1$=""
Fav1$="Leer"
EndIf
If Fav2$=""
Fav2$="Leer"
EndIf
If Fav3$=""
Fav3$="Leer"
EndIf
If Fav4$=""
Fav4$="Leer"
EndIf
If Fav5$=""
Fav5$="Leer"
EndIf
If Fav6$=""
Fav6$="Leer"
EndIf
If Fav7$=""
Fav7$="Leer"
EndIf
If Fav8$=""
Fav8$="Leer"
EndIf
If Fav9$=""
Fav9$="Leer"
EndIf
If Fav10$=""
Fav10$="Leer"
EndIf
If OpenWindow( 0,100,200,500,320,#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget,Titel$)
AddSysTrayIcon(1,WindowID(),LoadImage(0,Icon$))
SysTrayIconToolTip(1,"Doppelklick: Beenden"+Chr(13)+"Rechtsklick: Konfiguration"+Chr(13)+"Status: PowerOn")
CreateMenu(0,WindowID())
MenuTitle("Datei")
MenuItem( 0,"Aktualisieren")
MenuItem( 1,"Zurück")
MenuItem( 2,"Weiter")
MenuBar()
MenuItem(43,"Internet")
MenuItem( 3,"Beenden")
MenuTitle("Laufwerke")
OpenSubMenu("A-E")
MenuItem( 4,"A:\")
MenuItem( 5,"B:\")
MenuItem( 6,"C:\")
MenuItem( 7,"D:\")
MenuItem( 8,"E:\")
CloseSubMenu()
OpenSubMenu("F-J")
MenuItem( 9,"F:\")
MenuItem(10,"G:\")
MenuItem(11,"H:\")
MenuItem(12,"I:\")
MenuItem(13,"J:\")
CloseSubMenu()
OpenSubMenu("K-O")
MenuItem(14,"K:\")
MenuItem(15,"L:\")
MenuItem(16,"M:\")
MenuItem(17,"N:\")
MenuItem(18,"O:\")
CloseSubMenu()
OpenSubMenu("P-T")
MenuItem(19,"P:\")
MenuItem(20,"Q:\")
MenuItem(21,"R:\")
MenuItem(22,"S:\")
MenuItem(23,"T:\")
CloseSubMenu()
OpenSubMenu("U-Z")
MenuItem(24,"U:\")
MenuItem(25,"V:\")
MenuItem(26,"W:\")
MenuItem(27,"X:\")
MenuItem(28,"Y:\")
MenuItem(29,"Z:\")
CloseSubMenu()
MenuTitle("Favoriten")
MenuItem(30,Fav1$)
MenuItem(31,Fav2$)
MenuItem(32,Fav3$)
MenuItem(33,Fav4$)
MenuItem(34,Fav5$)
MenuItem(35,Fav6$)
MenuItem(36,Fav7$)
MenuItem(37,Fav8$)
MenuItem(38,Fav9$)
MenuItem(39,Fav10$)
MenuBar()
MenuItem(40,"Hinzufügen")
MenuItem(44,"Entfernen")
MenuTitle("Hilfe")
MenuItem(41,"Hilfe...")
MenuItem(42,"Über...")
CreateGadgetList(WindowID())
ButtonGadget  ( 1,  1,  0,166, 25,"Zurück")
ButtonGadget  ( 2,166,  0,166, 25,"Weiter")
ButtonGadget  ( 3,331,  0,166, 25,"Aktualisieren")
Frame3DGadget ( 6,  0, 30,  0,  2,"", 2)
WebGadget     ( 7,  0, 31,  0,  0,Seite$)
OptionGadget  ( 8,  0,  0,100, 20,"Favorit 1")
OptionGadget  ( 9,  0, 20,100, 20,"Favorit 2")
OptionGadget  (10,  0, 40,100, 20,"Favorit 3")
OptionGadget  (11,  0, 60,100, 20,"Favorit 4")
OptionGadget  (12,  0, 80,100, 20,"Favorit 5")
OptionGadget  (13,  0,100,100, 20,"Favorit 6")
OptionGadget  (14,  0,120,100, 20,"Favorit 7")
OptionGadget  (15,  0,140,100, 20,"Favorit 8")
OptionGadget  (16,  0,160,100, 20,"Favorit 9")
OptionGadget  (17,  0,180,100, 20,"Favorit 10")
ButtonGadget  (18,  5,200,100, 20,"Speichern")
ButtonGadget  (19,  5,220,100, 20,"Abbrechen")
StringGadget  (20,  5,  5,200, 20,"www.purebasic.de")
ButtonGadget  (21,  5, 25,200, 20,"Öffnen")
ButtonGadget  (22,  5,200,100, 20,"Löschen")
ResizeWebWindow()
CreateStatusBar(0, WindowID())
StatusBarText(0, 0,"Startseite: "+Seite$, 0)
HideGadget( 8,1)
HideGadget( 9,1)
HideGadget(10,1)
HideGadget(11,1)
HideGadget(12,1)
HideGadget(13,1)
HideGadget(14,1)
HideGadget(15,1)
HideGadget(16,1)
HideGadget(17,1)
HideGadget(18,1)
HideGadget(19,1)
HideGadget(20,1)
HideGadget(21,1)
HideGadget(22,1)
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_SysTray
If EventType() = #PB_EventType_LeftDoubleClick
Result=MessageRequester(Titel$,"Beenden?",#PB_MessageRequester_YesNo)
If Result=6
CreateFile(0,"Startseite.str")
WriteString(GetGadgetText(7))
CloseFile(0)
MessageRequester("Danke","Danke, dass sie die Demoversion des InternetBrowsers 5.0 getestet haben!",0)
End
Else
EndIf
EndIf
If EventType() = #PB_EventType_RightClick
Result=MessageRequester(Titel$,"Um die Einstellungen in den Konfigurationen zu übernehmen, müssen sie das Programm neun starten!"+Chr(13)+"Fortsetzen?",#PB_Messagerequester_YesNo)
If Result=6
RunProgram(Confg$)
Else
EndIf
EndIf
EndIf
Select Event
Case #PB_Event_Gadget
Select EventGadgetID()
Case 1
SetGadgetState(7, #PB_Web_Back)
Case 2
SetGadgetState(7, #PB_Web_Forward)
Case 3
SetGadgetState(7, #PB_Web_Refresh)
Case 5
SetGadgetText(7, GetGadgetText(4))
Case 18
If GetGadgetState(8)=1
CreateFile(0,"Fav1.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
If GetGadgetState(9)=1
CreateFile(0,"Fav2.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
If GetGadgetState(10)=1
CreateFile(0,"Fav3.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
If GetGadgetState(11)=1
CreateFile(0,"Fav4.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
If GetGadgetState(12)=1
CreateFile(0,"Fav5.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
If GetGadgetState(13)=1
CreateFile(0,"Fav6.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
If GetGadgetState(14)=1
CreateFile(0,"Fav7.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
If GetGadgetState(15)=1
CreateFile(0,"Fav8.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
If GetGadgetState(16)=1
CreateFile(0,"Fav9.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
If GetGadgetState(17)=1
CreateFile(0,"Fav10.nwl")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
HideGadget( 1,0)
HideGadget( 2,0)
HideGadget( 3,0)
HideGadget( 6,0)
HideGadget( 7,0)
HideGadget( 8,1)
HideGadget( 9,1)
HideGadget(10,1)
HideGadget(11,1)
HideGadget(12,1)
HideGadget(13,1)
HideGadget(14,1)
HideGadget(15,1)
HideGadget(16,1)
HideGadget(17,1)
HideGadget(18,1)
HideGadget(19,1)
Case 19
HideGadget( 1,0)
HideGadget( 2,0)
HideGadget( 3,0)
HideGadget( 6,0)
HideGadget( 7,0)
HideGadget( 8,1)
HideGadget( 9,1)
HideGadget(10,1)
HideGadget(11,1)
HideGadget(12,1)
HideGadget(13,1)
HideGadget(14,1)
HideGadget(15,1)
HideGadget(16,1)
HideGadget(17,1)
HideGadget(18,1)
HideGadget(19,1)
Case 21
HideGadget( 1,0)
HideGadget( 2,0)
HideGadget( 3,0)
HideGadget( 6,0)
HideGadget( 7,0)
HideGadget(20,1)
HideGadget(21,1)
If GetGadgetText(20)="startfile"
SetGadgetText(7,Seite$)
Else
SetGadgetText(7,GetGadgetText(20))
EndIf
Case 22
If GetGadgetState(8)=1
DeleteFile("Fav1.nwl")
Fav1$="Leer"
EndIf
If GetGadgetState(9)=1
DeleteFile("Fav2.nwl")
Fav2$="Leer"
EndIf
If GetGadgetState(10)=1
DeleteFile("Fav3.nwl")
Fav3$="Leer"
EndIf
If GetGadgetState(11)=1
DeleteFile("Fav4.nwl")
Fav4$="Leer"
EndIf
If GetGadgetState(12)=1
DeleteFile("Fav5.nwl")
Fav5$="Leer"
EndIf
If GetGadgetState(13)=1
DeleteFile("Fav6.nwl")
Fav6$="Leer"
EndIf
If GetGadgetState(14)=1
DeleteFile("Fav7.nwl")
Fav7$="Leer"
EndIf
If GetGadgetState(15)=1
DeleteFile("Fav8.nwl")
Fav8$="Leer"
EndIf
If GetGadgetState(16)=1
DeleteFile("Fav9.nwl")
Fav9$="Leer"
EndIf
If GetGadgetState(17)=1
DeleteFile("Fav10.nwl")
Fav10$="Leer"
EndIf
HideGadget( 1,0)
HideGadget( 2,0)
HideGadget( 3,0)
HideGadget( 6,0)
HideGadget( 7,0)
HideGadget( 8,1)
HideGadget( 9,1)
HideGadget(10,1)
HideGadget(11,1)
HideGadget(12,1)
HideGadget(13,1)
HideGadget(14,1)
HideGadget(15,1)
HideGadget(16,1)
HideGadget(17,1)
HideGadget(18,1)
HideGadget(19,1)
HideGadget(20,1)
HideGadget(21,1)
HideGadget(22,1)
EndSelect
Case #PB_Event_Menu
Select EventMenuID()
Case 0
SetGadgetState(7, #PB_Web_Refresh)
Case 1
SetGadgetState(7, #PB_Web_Back)
Case 2
SetGadgetState(7, #PB_Web_Forward)
Case 3
MessageRequester("Danke","Danke, dass sie die Demoversion des InternetBrowsers 5.0 getestet haben!",0)
CreateFile(0,"Startseite.str")
WriteString(GetGadgetText(7))
CloseFile(0)
End
Case 4
SetGadgetText(7,"A:\")
Case 5
SetGadgetText(7,"B:\")
Case 6
SetGadgetText(7,"C:\")
Case 7
SetGadgetText(7,"D:\")
Case 8
SetGadgetText(7,"E:\")
Case 9
SetGadgetText(7,"F:\")
Case 10
SetGadgetText(7,"G:\")
Case 11
SetGadgetText(7,"H:\")
Case 12
SetGadgetText(7,"I:\")
Case 13
SetGadgetText(7,"J:\")
Case 14
SetGadgetText(7,"K:\")
Case 15
SetGadgetText(7,"L:\")
Case 16
SetGadgetText(7,"M:\")
Case 17
SetGadgetText(7,"N:\")
Case 18
SetGadgetText(7,"O:\")
Case 19
SetGadgetText(7,"P:\")
Case 20
SetGadgetText(7,"Q:\")
Case 21
SetGadgetText(7,"R:\")
Case 22
SetGadgetText(7,"S:\")
Case 23
SetGadgetText(7,"T:\")
Case 24
SetGadgetText(7,"U:\")
Case 25
SetGadgetText(7,"V:\")
Case 26
SetGadgetText(7,"W:\")
Case 27
SetGadgetText(7,"X:\")
Case 28
SetGadgetText(7,"Y:\")
Case 29
SetGadgetText(7,"Z:\")
Case 30
If ReadFile(0,"Fav1.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 31
If ReadFile(0,"Fav2.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 32
If ReadFile(0,"Fav3.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 33
If ReadFile(0,"Fav4.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 34
If ReadFile(0,"Fav5.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 35
If ReadFile(0,"Fav6.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 36
If ReadFile(0,"Fav7.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 37
If ReadFile(0,"Fav8.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 38
If ReadFile(0,"Fav9.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 39
If ReadFile(0,"Fav10.nwl")
SetGadgetText(7,ReadString())
CloseFile(0)
EndIf
Case 40
HideGadget( 1,1)
HideGadget( 2,1)
HideGadget( 3,1)
HideGadget( 6,1)
HideGadget( 7,1)
HideGadget( 8,0)
HideGadget( 9,0)
HideGadget(10,0)
HideGadget(11,0)
HideGadget(12,0)
HideGadget(13,0)
HideGadget(14,0)
HideGadget(15,0)
HideGadget(16,0)
HideGadget(17,0)
HideGadget(18,0)
HideGadget(19,0)
Case 41
SetGadgetText(7,Help$)
Case 42
SetGadgetText(7,About$)
Case 43
HideGadget( 1,1)
HideGadget( 2,1)
HideGadget( 3,1)
HideGadget( 6,1)
HideGadget( 7,1)
HideGadget( 8,1)
HideGadget( 9,1)
HideGadget(10,1)
HideGadget(11,1)
HideGadget(12,1)
HideGadget(13,1)
HideGadget(14,1)
HideGadget(15,1)
HideGadget(16,1)
HideGadget(17,1)
HideGadget(18,1)
HideGadget(19,1)
HideGadget(20,0)
HideGadget(21,0)
Case 44
HideGadget( 1,1)
HideGadget( 2,1)
HideGadget( 3,1)
HideGadget( 6,1)
HideGadget( 7,1)
HideGadget( 8,0)
HideGadget( 9,0)
HideGadget(10,0)
HideGadget(11,0)
HideGadget(12,0)
HideGadget(13,0)
HideGadget(14,0)
HideGadget(15,0)
HideGadget(16,0)
HideGadget(17,0)
HideGadget(18,1)
HideGadget(19,1)
HideGadget(20,1)
HideGadget(21,1)
HideGadget(22,0)
EndSelect
Case #PB_Event_SizeWindow
ResizeWebWindow()
EndSelect
Until Event = #PB_Event_CloseWindow
MessageRequester("Danke","Danke, dass sie die Demoversion des InternetBrowsers 5.0 getestet haben!",0)
CreateFile(0,"Startseite.str")
WriteString(GetGadgetText(7))
CloseFile(0)
EndIf
Else
MessageRequester(Titel$,"Icondatei gefunden aber die Datei enthält nicht den Code der Symboldatei!",0)
RunProgram("Confg.exe")
EndIf
Edit by NicTheQuick: Code-Tags gesetzt. Ich hatte aber gerade keine Lust auch noch die Einrückungen vorzunehmen.

Verfasst: 03.10.2005 17:38
von Kaeru Gaman
BITTE Code-Tags setzen! >__<

Verfasst: 03.10.2005 19:25
von Programie
Fast hätte ich es vergessen!
Man muss den Browser erst Konfiguieren.

Hier ist der Code von dem Konfigurationsprogramm:


Code: Alles auswählen

If OpenWindow(0,300,300,200,100,#PB_Window_SystemMenu,"Konfiguration")
If CreateGadgetList(WindowID())
TextGadget       ( 0,  0,  0,200,20,"Bitte geben sie den Systrayicon-Pfad ein")
OptionGadget     ( 1,  0, 20,150,20,"Standard [Broser.ico]")
OptionGadget     ( 2,  0, 40,150,20,"Benutzerdefiniert")
StringGadget     ( 3,  0, 60,180,20,"D:\Sonstiges\Icons\LunaXP The Internet1.ico")
ButtonGadget     ( 4,180, 60, 20,20,"...")
ButtonGadget     ( 5,  0, 80,100,20,"Abbrechen")
ButtonGadget     ( 6,100, 80,100,20,"Weiter")
ProgressBarGadget( 7,  0, 20,200,20,0,1000,#PB_ProgressBar_Smooth)
EndIf
HideGadget( 7,1)
DisableGadget(3,1)
DisableGadget(4,1)
DisableGadget(6,1)
GadgetToolTip(1,"Aktiviert: Standarddatei (Browser.ico)")
GadgetToolTip(2,"Aktiviert: Pfad und Dateiname selbst eingeben")
GadgetToolTip(3,"Eingabefeld für Pfad und Dateipfad")
GadgetToolTip(4,"Ordner durchsuchen")
GadgetToolTip(5,"Konfiguration ohne speichern verlassen")
GadgetToolTip(6,"Einstellungen speichern")
Repeat
EventID=WaitWindowEvent()
If EventID=#PB_Event_Gadget
Select EventGadgetID()
Case 1
If GetGadgetState(1)=1
SetWindowTitle(0,"Konfiguration- [LunaXP The Internet1.ico]")
DisableGadget(3,1)
DisableGadget(4,1)
DisableGadget(6,0)
EndIf
Case 2
If GetGadgetState(2)=1
SetWindowTitle(0,"Konfiguration- ["+GetGadgetText(3)+"]")
DisableGadget(3,0)
DisableGadget(4,0)
DisableGadget(6,0)
EndIf
Case 4
IconFile$=OpenFileRequester("Symboldatei wählen","D:\Sonstiges\Icons\","Symboldateien|*.ico",0)
If IconFile$
SetGadgetText(3,IconFile$)
EndIf
Case 5
End
Case 6
HelpFile$=OpenFileRequester("Hilfedatei suchen","","Hilfedatei|Help.htm",0)
If HelpFile$
CreateFile(0,"C:\Windows\System32\Help.ini")
WriteString(HelpFile$)
CloseFile(0)
HideGadget(0,1)
HideGadget(1,1)
HideGadget(2,1)
HideGadget(3,1)
HideGadget(4,1)
HideGadget(5,1)
HideGadget(6,1)
Else
End
EndIf
AboutFile$=OpenFileRequester("Hilfedatei suchen","","Überdatei|About.htm",0)
If AboutFile$
CreateFile(0,"C:\Windows\System32\About.ini")
WriteString(AboutFile$)
CloseFile(0)
HideGadget(0,1)
HideGadget(1,1)
HideGadget(2,1)
HideGadget(3,1)
HideGadget(4,1)
HideGadget(5,1)
HideGadget(6,1)
Else
End
EndIf
If AboutFile$
If HelpFile$
CreateFile(0,"Iconfile.confg")
WriteString(GetGadgetText(3))
CloseFile(0)
For a=0 To 1000
SetGadgetState(7,a)
Delay(1)
Next
CreateFile(0,"C:\Windows\System32\Web.ssf")
WriteString(GetPathPart(AboutFile$))
CloseFile(0)
MessageRequester("Fertig","Speichern ist beendet!",0)
End
Else
MessageRequester("Error","Internal Error!",0)
End
EndIf
EndIf
EndSelect
EndIf
Until EventID=#PB_Event_CloseWindow
EndIf
[/color]

Verfasst: 03.10.2005 19:50
von ts-soft
Mit den ganzen fixen Pfaden, ist der Wohl nur auf Deinem Computer brauchbar :mrgreen:
Pfade sollten per API ermittelt werden!!!! Dazu gibt hier im Forum auch diverse CodeSnippets.

Wenn ich dann solche Zeilen wie diese:

Code: Alles auswählen

CreateFile(0,"C:\Windows\System32\Help.ini")
sehe wird mir :freak:
Ich denke der Beitrag passt unter Code, Tipps und Tricks nicht so ganz

Verfasst: 03.10.2005 20:16
von Programie
Ich würde es gerne als API schreiben, aber ich habe nur die PureBasic Version 3.93 Demo!

Verfasst: 03.10.2005 20:31
von ts-soft
Das ist doch kein Grund, das System könnte ja auch auf F:\ liegen

Code: Alles auswählen

Procedure.s GetSystemDirectory()
  Protected DLL, Result.s
  DLL = OpenLibrary(#PB_Any, "KERNEL32.dll")
  If DLL
    Result = Space(260)
    CallFunction(DLL, "GetSystemDirectoryA", @Result, 260)
    CloseLibrary(DLL)
    If Result
      If Right(Result,1) <> "\" : Result + "\" : EndIf
      ProcedureReturn Result
    EndIf
  EndIf
EndProcedure
Debug GetSystemDirectory()
Alle anderen API-Funktionen kannste in ähnlicher Form umsetzen. Der Kauf von PB macht natürlich vieles leichter :wink:

Verfasst: 03.10.2005 20:36
von Kaeru Gaman
statt

Code: Alles auswählen

HideGadget(0,1) 
HideGadget(1,1) 
HideGadget(2,1) 
HideGadget(3,1) 
HideGadget(4,1) 
HideGadget(5,1) 
HideGadget(6,1)
sollte man z.b.

Code: Alles auswählen

For n=1 to 6
    HideGadget(5,1)     
Next
schreiben.

da sind noch mehr so sachen, wie z.b. jeden einzelnen laufwerksbuchstaben literal aufgeführt,
anstatt Chr() zu verwenden, und für jeden ein einzelnes Case..

ich stimme ts zu:
dieser Code sollte nicht in diese Rubrik, die dient eigentlich dazu,
besonders effektive oder pfiffige oder schöne Code-Snippets zu posten.


> Edit by NicTheQuick: Code-Tags gesetzt. Ich hatte aber gerade keine Lust auch noch die Einrückungen vorzunehmen.

die Einrückungen hätten ja vorher schon drin sein sollen, nur nicht angezeigt.

Verfasst: 03.10.2005 20:43
von Programie
Ich schreibe das Programm gleich mal um! ...

Bei mir werden die Gadgets dann angezeigt!

Verfasst: 03.10.2005 20:47
von ts-soft
Programie hat geschrieben:Ich schreibe das Programm gleich mal um! ...
:allright: und denke dran, solche Sachen wie CreateFile usw. zu überprüfen, wie es auch in der Hilfe erläutert ist. Kannste auch an meiner gepostetetn Procedure erkennen, die ganzen If usw.

Verfasst: 10.10.2005 20:33
von Eclipse
das ist kein browser :wink:
das ist ein schön verpacktes webgadget.

in einem browser ist immer ein html-parser (also der hauptbestandteil) dabei
Alle Zeiten sind UTC+02:00
Seite 1 von 2

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de