Sign in to follow this  
Followers 0
darippaxp

can someone help me with this to make it a client/server

2 posts in this topic

hey everyone, im trying to make this great program where its like aol but its own little network. ive made about 50 sites or so and put them in the program so it got all of its own unique content. if someone could help me make it to where when people have it open that it sees the same webpages on the front screen where it saws microsystemsinternetconsole have it to where it is a chatroom , or if i could make it contain a webpage that i can put my chatroom site to show there. here is my code

#include <GuiConstantsEx.au3>
#include <guiconstants.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
; GUI
#region - gui create
$gui = GUICreate('microstems internet console', 750, 180)
WinSetOnTop($gui, "", 1)
#endregion - gui create
; PIC
GUICtrlCreatePic("microsysteminternetconsole.gif", 0, 0, 750, 180)
GUICtrlSetColor(-1, 0xffffff)
dropmenu()
Func dropmenu()
    Local $defaultstatus = "Ready", $status, $filemenu, $fileitem
    Local $helpmenu, $saveitem, $infoitem, $exititem, $recentfilesmenu
    Local $separator1, $viewmenu, $viewstatusitem, $okbutton, $cancelbutton
    Local $statuslabel, $msg, $file

    $filemenu = GUICtrlCreateMenu("&file")
$webhosts = guictrlcreatemenu("webhosts")
$menuitem59 = guictrlcreatemenuitem("aplus.net login", $webhosts)
$menuitem60 = guictrlcreatemenuitem("awardspace login", $webhosts)
    $webmenu = GUICtrlCreateMenu("&microsystems web menu")
    $menuitem1 = GUICtrlCreateMenuItem("microsystems station headquarters", $webmenu)
$entertainmentstation = GUICtrlCreateMenu("entertainment station")
$menuitem17 = GUICTRLCREATEMENUITEM("home", $entertainmentstation)
$menuitem23 = GUICTRLCREATEMENUITEM("games", $entertainmentstation)
$menuitem18 = GUICTRLCREATEMENUITEM("music videos", $entertainmentstation)
$menuitem24 = GUICTRLCREATEMENUITEM("tha lounge", $entertainmentstation)
$menuitem21 = GUICTRLCREATEMENUITEM("chat", $entertainmentstation)
$menuitem22 = GUICTRLCREATEMENUITEM("forum", $entertainmentstation)
$menuitem19 = GUICTRLCREATEMENUITEM("random bullshit", $entertainmentstation)
$menuitem20 = GUICTRLCREATEMENUITEM("contact ent. station", $entertainmentstation)
    $menuitem2 = GUICtrlCreateMenuItem("microsystems music fanpages", $webmenu)
    $menuitem3 = GUICtrlCreateMenuItem("runescape.com", $webmenu)
    $socialnetworks = GUICtrlCreateMenu("&social networks")
    $menuitem4 = GUICtrlCreateMenuItem("facebook.com", $socialnetworks)
    $menuitem5 = GUICtrlCreateMenuItem("myspace.com", $socialnetworks)
    $menuitem6 = GUICtrlCreateMenuItem("youtube.com", $socialnetworks)
    $menuitem7 = GUICtrlCreateMenuItem("twitter.com", $socialnetworks)
    $music = GUICtrlCreateMenu("microsystems music fanpages")
    $menuitem8 = GUICtrlCreateMenuItem("three six mafia", $music)
    $menuitem9 = GUICtrlCreateMenuItem("eminem", $music)
    $menuitem10 = GUICtrlCreateMenuItem("lil joe", $music)
    $menuitem11 = GUICtrlCreateMenuItem("o-dubb", $music)
    $menuitem12 = GUICtrlCreateMenuItem("rick ross", $music)
    $games = GUICtrlCreateMenu("&games")
    $menuitem13 = GUICtrlCreateMenuItem("runescape", $games)
    $menuitem14 = GUICtrlCreateMenuItem("knights online", $games)
    $menuitem15 = GUICtrlCreateMenuItem("world of warcraft", $games)
    $menuitem16 = GUICtrlCreateMenuItem("project torque", $games)
  $menuitem25 = GUICTRLCREATEMENUITEM("random bullshit", $entertainmentstation)
$menuitem26 = GUICTRLCREATEMENUITEM("ann can blog", $entertainmentstation)
    $menuitem27 = GUICtrlCreateMenuItem("ann's portfolio", $entertainmentstation)
    $menuitem28 = GUICtrlCreateMenuItem("asian gang", $entertainmentstation)
    $menuitem29 = GUICtrlCreateMenuItem("blaze ent.", $entertainmentstation)
    $menuitem30 = GUICtrlCreateMenuItem("blaze pub", $entertainmentstation)
$menuitem31 = GUICtrlCreateMenuItem("blaze radio", $entertainmentstation)
    $menuitem32 = GUICtrlCreateMenuItem("codemasters", $entertainmentstation)
    $menuitem33 = GUICtrlCreateMenuItem("lyrical genius", $entertainmentstation)
    $menuitem34 = GUICtrlCreateMenuItem("mpages", $entertainmentstation)
    $menuitem35 = GUICtrlCreateMenuItem("demo pros ham radio club", $entertainmentstation)
    $menuitem36 = GUICtrlCreateMenuItem("demo pros", $entertainmentstation)
    $menuitem37 = GUICtrlCreateMenuItem("notepad", $entertainmentstation)
    $menuitem38 = GUICtrlCreateMenuItem("freestyle central", $entertainmentstation)
    $menuitem39 = GUICtrlCreateMenuItem("gamers classic", $entertainmentstation)
    $menuitem40 = GUICtrlCreateMenuItem("planetquake", $entertainmentstation)
    $menuitem41 = GUICtrlCreateMenuItem("pacman", $entertainmentstation)
    $menuitem42 = GUICtrlCreateMenuItem("quake clans", $entertainmentstation)
   $menuitem43 = GUICtrlCreateMenuItem("racer's haven", $entertainmentstation)
    $menuitem44 = GUICtrlCreateMenuItem("demo pros", $entertainmentstation)
    $menuitem45 = GUICtrlCreateMenuItem("rune crue", $entertainmentstation)
    $menuitem46 = GUICtrlCreateMenuItem("random bullshit season 1", $entertainmentstation)
    $menuitem47 = GUICtrlCreateMenuItem("shredmasters", $entertainmentstation)
$menuitem48 = GUICTRLCREATEMENUITEM("tbas.22web.net", $entertainmentstation)
$menuitem49 = GUICTRLCREATEMENUITEM("tech9", $entertainmentstation)
    $menuitem50 = GUICtrlCreateMenuItem("the online story", $entertainmentstation)
    $menuitem51 = GUICtrlCreateMenuItem("the amanda file", $entertainmentstation)
    $menuitem52 = GUICtrlCreateMenuItem("the dating forum", $entertainmentstation)
    $menuitem53 = GUICtrlCreateMenuItem("the heavy file", $entertainmentstation)
    $menuitem54 = GUICtrlCreateMenuItem("tommy gunz", $entertainmentstation)
    $menuitem55 = GUICtrlCreateMenuItem("twitter.com", $entertainmentstation)
    $menuitem56 = GUICtrlCreateMenuItem("vg credits", $entertainmentstation)
    $menuitem57 = GUICtrlCreateMenuItem("vg gamers forum", $entertainmentstation)
    $menuitem58 = GUICtrlCreateMenuItem("web mega arcade", $entertainmentstation)
$menuitem59 = guictrlcreatemenuitem("aplus.net login", $entertainmentstation)
    $fileitem = GUICtrlCreateMenuItem("open", $filemenu)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    $saveitem = GUICtrlCreateMenuItem("save", $filemenu)
    GUICtrlSetState(-1, $GUI_DISABLE)
    $exititem = GUICtrlCreateMenuItem("exit", $filemenu)
    $recentfilesmenu = GUICtrlCreateMenu("recent Files", $filemenu, 1)
    GUICtrlSetState(-1, $GUI_CHECKED)
    $okbutton = GUICtrlCreateButton("ok", 1000, 150, 70, 20)
    GUICtrlSetState(-1, $GUI_FOCUS)
    $cancelbutton = GUICtrlCreateButton("cancel", 1000, 150, 70, 20)
    $separator1 = GUICtrlCreateMenuItem("", $filemenu, 2) ; create a separator line
    $viewmenu = GUICtrlCreateMenu("view", -1, 1) ; is created before "?" menu
    $viewstatusitem = GUICtrlCreateMenuItem("Statusbar", $viewmenu)
    $statuslabel = GUICtrlCreateLabel($defaultstatus, 0, 165, 300, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))

    GUISetState()
    While 1
     $msg = GUIGetMsg()
     Switch $msg ; Beacuse is a madness write If then If then for every item
         Case $GUI_EVENT_CLOSE
             Exit
         Case $fileitem
             $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
             If @error <> 1 Then GUICtrlCreateMenuItem($file, $recentfilesmenu)
         Case $viewstatusitem
             If BitAND(GUICtrlRead($viewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
                 GUICtrlSetState($viewstatusitem, $GUI_UNCHECKED)
                 GUICtrlSetState($statuslabel, $GUI_HIDE)
             Else
                 GUICtrlSetState($viewstatusitem, $GUI_CHECKED)
                 GUICtrlSetState($statuslabel, $GUI_SHOW)
             EndIf
         Case $menuitem3
             ShellExecute("http://www.runescape.com")
   case $menuitem1
    shellexecute("http://microdot.co.nr")
   case $menuitem2
    shellexecute("http://microsystemsdx.biz/musicdx.html")
   case $menuitem4
    shellexecute("http://www.facebook.com")
   case $menuitem5
    shellexecute("http://www.myspace.com")
   case $menuitem6
    shellexecute("http://www.youtube.com")
   case $menuitem7
    shellexecute("http://www.twitter.com")
   case $menuitem8
    shellexecute("http://microsystemsdx.biz/threesixmafia.html")
   case $menuitem9
    shellexecute("http://microsystemsdx.biz/eminem.html")
   case $menuitem10
    shellexecute("http://liljoe.66ghz.com")
   case $menuitem11
    shellexecute("http://milo.22web.net")
   case $menuitem12
    shellexecute("http://microsystemsdx.biz/rickross.html")
   case $menuitem13
    shellexecute("http://www.runescape.com")
   case $menuitem14
    shellexecute("http://www.gamersfirst.com/knightonlineworld/")
   case $menuitem15
    shellexecute("http://www.battle.net/wow/")
   case $menuitem16
    shellexecute("http://www.projecttorque.com/")
   case $menuitem17
    shellexecute("http://entstation.co.nr")
   case $menuitem23
    shellexecute("http://entertainmentstation.weebly.com/videogames.html")
   case $menuitem18
    shellexecute("http://entertainmentstation.weebly.com/music-videos.html")
   case $menuitem19
    shellexecute("http://entertainmentstation.weebly.com/random-bullshit-first-season.html")
   case $menuitem20
    shellexecute("http://entertainmentstation.weebly.com/contact-ent-station.html")
   case $menuitem21
    shellexecute("http://entertainmentstation.weebly.com/chat.html")
   case $menuitem22
    shellexecute("http://entertainmentstation.weebly.com/forum.html")
   case $menuitem23
    shellexecute("http://entertainmentstation.weebly.com/videogames.html")
   case $menuitem24
    shellexecute("http://entertainmentstation.weebly.com/tha-lounge.html")
       case $menuitem25
    shellexecute("http://advertiserpros.66ghz.com")
       case $menuitem26
    shellexecute("http://anncanblog.iblogger.org")
       case $menuitem27
    shellexecute("http://annsportfolio.66ghz.com")
       case $menuitem28
    shellexecute("http://asiangang.22web.net")
       case $menuitem29
    shellexecute("http://blazeent.22web.net")
       case $menuitem30
    shellexecute("http://blazepub.22web.net")
       case $menuitem31
    shellexecute("http://blazeradio.22web.net")
       case $menuitem32
    shellexecute("http://codemasters.22web.net")
       case $menuitem33
    shellexecute("http://darippacanblog.iblogger.org")
       case $menuitem34
    shellexecute("http://darippaxp.66ghz.com")
       case $menuitem35
    shellexecute("http://demoprosham.22web.net")
           case $menuitem36
    shellexecute("http://demopros.66ghz.com")
           case $menuitem37
    shellexecute("http://entstation.66ghz.com")
           case $menuitem38
    shellexecute("http://fscentral.66ghz.com")
           case $menuitem39
    shellexecute("http://gamersclassic.10001mb.com")
           case $menuitem24
    shellexecute("http://gamershaven.66ghz.com")
           case $menuitem24
    shellexecute("http://ghostwrite.22web.net")
           case $menuitem25
    shellexecute("http://hackmack.66ghz.com")
               case $menuitem26
    shellexecute("http://hookup.22web.net")
               case $menuitem27
    shellexecute("http://jokesters.totalh.com")
               case $menuitem28
    shellexecute("http://josephsportfolio.66ghz.com")
               case $menuitem29
    shellexecute("http://jscorner.22web.net")
               case $menuitem30
    shellexecute("http://kptaction.22web.net")
               case $menuitem31
    shellexecute("http://leconn.22web.net")
                   case $menuitem32
    shellexecute("http://liljoe.66ghz.com")
                   case $menuitem33
    shellexecute("http://lyricalgenius.isgreat.org")
                   case $menuitem34
    shellexecute("http://mpages.22web.net")
                       case $menuitem35
    shellexecute("http://musicreviews.10001mb.com")
                       case $menuitem36
    shellexecute("http://nesarcade.66ghz.com")
                       case $menuitem37
    shellexecute("http://notepad.22web.net")
                           case $menuitem38
    shellexecute("http://nutnlikeu.isgreat.org")
                           case $menuitem39
    shellexecute("http://planetquake.com")
                           case $menuitem40
    shellexecute("http://notepad.22web.net")
                             case $menuitem41
    shellexecute("http://pacman.22web.net")
                             case $menuitem42
    shellexecute("http://qlc.22web.net")
                             case $menuitem43
    shellexecute("http://racershaven.22web.net")
                             case $menuitem44
    shellexecute("http://demopros.awardspace.com")
                             case $menuitem45
        shellexecute("http://runecrue.awardspace.com")
                             case $menuitem46
        shellexecute("http://randombullshit.isgreat.org")
                             case $menuitem47
            shellexecute("http://shredmasters.66ghz.com")
                     case $menuitem48
            shellexecute("http://tbas.22web.net")
                     case $menuitem49
            shellexecute("http://tech9.22web.net")
                     case $menuitem50
            shellexecute("http://teonlinestory.22web.net")
                     case $menuitem51
            shellexecute("http://theamandafile.totalh.com")
                     case $menuitem52
            shellexecute("http://thedatingforum.22web.net")
                 case $menuitem53
            shellexecute("http://theheavyfile.totalh.com")
                 case $menuitem54
            shellexecute("http://theroadtonazareth.isgreat.org")
                 case $menuitem55
            shellexecute("http://tommygunz.22web.net")
                 case $menuitem56
            shellexecute("http://vgcredits.66ghz.com")
              case $menuitem57
            shellexecute("http://vggf.66ghz.com")
              case $menuitem58
            shellexecute("http://webmegaarcade.66ghz.com")
           case $menuitem59
         shellexecute("http://www.aplus.net/")
                 case $menuitem60
         shellexecute("https://www.awardspace.net/login.html")
     EndSwitch
    WEnd
    GUIDelete()
EndFunc   ;==>dropmenu

Share this post


Link to post
Share on other sites



See

This is a good way to starting. Good look.


Visit my repository

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0