home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD115271192000.psc / UserControl1.ctl (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-11-10  |  15.2 KB  |  382 lines
  1. VERSION 5.00
  2. Begin VB.UserControl CompControl 
  3.    BackColor       =   &H000000FF&
  4.    CanGetFocus     =   0   'False
  5.    ClientHeight    =   495
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   495
  9.    ClipBehavior    =   0  'None
  10.    ClipControls    =   0   'False
  11.    InvisibleAtRuntime=   -1  'True
  12.    Picture         =   "UserControl1.ctx":0000
  13.    ScaleHeight     =   495
  14.    ScaleWidth      =   495
  15.    Begin VB.Image Image1 
  16.       Height          =   480
  17.       Left            =   0
  18.       Picture         =   "UserControl1.ctx":0442
  19.       Top             =   0
  20.       Width           =   480
  21.    End
  22. Attribute VB_Name = "CompControl"
  23. Attribute VB_GlobalNameSpace = False
  24. Attribute VB_Creatable = True
  25. Attribute VB_PredeclaredId = False
  26. Attribute VB_Exposed = True
  27. 'by Martin McCormick
  28. Dim a123
  29. Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
  30. Private Const SND_APPLICATION = &H80
  31. Private Const SND_ALIAS = &H10000
  32. Private Const SND_ALIAS_ID = &H110000
  33. Private Const SND_ASYNC = &H1
  34. Private Const SND_FILENAME = &H20000
  35. Private Const SND_LOOP = &H8
  36. Private Const SND_MEMORY = &H4
  37. Private Const SND_NODEFAULT = &H2
  38. Private Const SND_NOSTOP = &H10
  39. Private Const SND_NOWAIT = &H2000
  40. Private Const SND_PURGE = &H40
  41. Private Const SND_RESOURCE = &H40004
  42. Private Const SND_SYNC = &H0
  43. Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
  44. Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
  45. Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
  46. Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
  47. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  48. Private Declare Function RegOpenKeyExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
  49. Private Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
  50. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
  51. Private Declare Function RegisterServiceProcess Lib "kernel32.dll" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
  52. Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
  53. Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
  54. Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
  55. Const SHERB_NOCONFIRMATION = &H1
  56. Const SHERB_NOPROGRESSUI = &H2
  57. Const SHERB_NOSOUND = &H4
  58. Private Const SPI_SETSCREENSAVEACTIVE = 17
  59. Private Const SPIF_UPDATEINIFILE = &H1
  60. Private Const SPIF_SENDWININICHANGE = &H2
  61. Const Internet_Autodial_Force_Unattended As Long = 2
  62. Private Declare Function InternetAutodial Lib "wininet.dll" (ByVal dwFlags As Long, ByVal dwReserved As Long) As Long
  63. Private Declare Function InternetAutodialHangup Lib "wininet.dll" (ByVal dwReserved As Long) As Long
  64. Private Declare Function SystemParametersInfo Lib "user32" _
  65. Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal _
  66. uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As _
  67. Long) As Long
  68. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  69. Dim retval
  70. Private Declare Function SetCursorPos Lib "user32.dll" (ByVal X As Long, ByVal Y As Long) As Long
  71. Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
  72. Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  73. Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  74. Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  75. Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
  76. Private Type POINTAPI
  77.     X As Long
  78.     Y As Long
  79. End Type
  80. Private XT(1) As Single, YT As Single, M As Single
  81. Private XScreen As Single, YScreen As Single
  82. Private i As Integer, II As Integer
  83. Private Const MAX_DELOCATION = 250
  84. Private Const PUPIL_DISTANCE = 30
  85. Option Explicit
  86. Dim timeval
  87. Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
  88. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  89. Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long) As Long
  90. Const conHwndTopmost = -1
  91. Const conHwndNoTopmost = -2
  92. Const conSwpNoActivate = &H10
  93. Const conSwpShowWindow = &H40
  94. Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  95. Const KEYEVENTF_KEYUP = &H2
  96. Const VK_LWIN = &H5B
  97. Private Const EWX_SHUTDOWN As Long = 1
  98. Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
  99. Private Const EWX_REBOOT As Long = 2
  100. Private Const EWX_LOGOFF As Long = 0
  101. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  102. Const conSwNormal = 1
  103. Private Const SW_SHOW = 5
  104. Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  105. Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  106. Dim dgf
  107. Const SPI_SCREENSAVERRUNNING = 97
  108. Private Declare Function BringWindowToTop Lib "user32.dll" (ByVal hwnd As Long) As Long
  109. Const SWP_HIDEWINDOW = &H80
  110. Const SWP_SHOWWINDOW = &H40
  111. Private Type NOTIFYICONDATA
  112.    cbSize As Long
  113.    hwnd As Long
  114.    uId As Long
  115.    uFlags As Long
  116.    uCallBackMessage As Long
  117.    hIcon As Long
  118.    szTip As String * 64
  119. End Type
  120. Private Const NIM_ADD = &H0
  121. Private Const NIM_MODIFY = &H1
  122. Private Const NIM_DELETE = &H2
  123. Private Const WM_MOUSEMOVE = &H200
  124. Private Const NIF_MESSAGE = &H1
  125. Private Const NIF_ICON = &H2
  126. Private Const NIF_TIP = &H4
  127. Private Const WM_LBUTTONDBLCLK = &H203
  128. Private Const WM_LBUTTONDOWN = &H201
  129. Private Const WM_LBUTTONUP = &H202
  130. Private Const WM_RBUTTONDBLCLK = &H206
  131. Private Const WM_RBUTTONDOWN = &H204
  132. Private Const WM_RBUTTONUP = &H205
  133. Private Declare Function MoveFile Lib "kernel32.dll" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long
  134. Private Declare Function CopyFile Lib "kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
  135. Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
  136. Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
  137. Dim nid As NOTIFYICONDATA
  138. Private Declare Function SwapMouseButton Lib "user32.dll" (ByVal bSwap As Long) As Long
  139. '''''''''''''''''''''''''''''''''''''''''''''''
  140. 'Event Declarations:
  141. Event ShutDown(ShutDown)
  142. Event Restart(Restart)
  143. Event LogOff(LogOff)
  144. Event TaskBarHide(TaskBarHide)
  145. Event TasksBarShow(TasksBarShow)
  146. Event ScreenSaverOn(ScreenSaverOn)
  147. Event ScreenSaverOff(ScreenSaverOff)
  148. Event DesktopIconsHide(DesktopIconsHide)
  149. Event ALTCTRLDELEnabled(ALT_CTRL_DEL_Enabled)
  150. Event ALTCTRLDELDisabled(ALT_CTRL_DEL_Disabled)
  151. Event OpenCDROM(OpenCDROM)
  152. Event EmptRecycle(EmptRecycle)
  153. Event MinimizeAll(MinimizeAll)
  154. Event OpenExplore(OpenExplore)
  155. Event FindFiles(FindFiles)
  156. Event OpenInternetBrowser(OpenInternetBrowser)
  157. Event InternetConnect(InternetConnect)
  158. Event InternetDiconnect(InternetDiconnect)
  159. Event SendEmail(SendEmail)
  160. Event AddRemove(Add_Remove)
  161. Event AddHardWare(Add_HardWare)
  162. Event TimeDateSettings(Time_Date_Settings)
  163. Event RegionalSettings(Regional_Settings)
  164. Event DisplaySettings(Display_Settings)
  165. Event InternetSetting(Internet_Settings)
  166. Event KeyboardSettings(Keyboard_Settings)
  167. Event MouseSettings(Mouse_Settings)
  168. Event ModemSettings(Modem_Settings)
  169. Event SystemSettings(System_Settings)
  170. Event NetworkSettings(Network_Settings)
  171. Event PasswordSettings(Password_Settings)
  172. Event SoundsSettings(Sounds_Settings)
  173. Event ShowAbout(ShowAbout)
  174. Event CopyaFile(Copy_File)
  175. Event DeleteaFile(Delete_File)
  176. Event MoveaFile(Move_File)
  177. Event FlipMouseButtons(FlipMouseButtons)
  178. Event FormToTop(FormOnTop)
  179. Event ShutDownDIALOG(ShutDown_DIALOG)
  180. Event SleepMillisecs(Sleep_Millisecs)
  181. Event CursorHidden(Cursor_Hide)
  182. Event CursorShown(Cursor_Show)
  183. Event WAVFilePlayed(PlayWAVFile)
  184. Event ObjectEnabled(EnableObject)
  185. Event ObjectDisabled(DisableObject)
  186. Private Sub UserControl_Resize()
  187. UserControl.Width = 500
  188. UserControl.Height = 500
  189. End Sub
  190. Function ShutDown()
  191. Dim lngresult
  192. lngresult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
  193. End Function
  194. Function Restart()
  195. Dim lngresult
  196. lngresult = ExitWindowsEx(EWX_REBOOT, 0&)
  197. End Function
  198. Function LogOff()
  199. Dim lngresult
  200. lngresult = ExitWindowsEx(EWX_LOGOFF, 0&)
  201. End Function
  202. Function TaskBarHide()
  203. Dim rtn
  204. rtn = FindWindow("Shell_traywnd", "")
  205. Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
  206. End Function
  207. Function TaskBarShow()
  208. Dim rtn As Long
  209. rtn = FindWindow("Shell_traywnd", "")
  210. Call SetWindowPos(rtn, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
  211. End Function
  212. Function ScreenSaverOn()
  213. ToggleScreenSaverActive (True)
  214. End Function
  215. Function ScreenSaverOff()
  216. ToggleScreenSaverActive (False)
  217. End Function
  218. Public Function ToggleScreenSaverActive(Active As Boolean) _
  219.    As Boolean
  220. Dim lActiveFlag As Long
  221. Dim retval As Long
  222. lActiveFlag = IIf(Active, 1, 0)
  223. retval = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, _
  224.    lActiveFlag, 0, 0)
  225. ToggleScreenSaverActive = retval > 0
  226. End Function
  227. Function DesktopIconsShow()
  228. Dim hwnd As Long
  229. hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
  230. ShowWindow hwnd, 5
  231. End Function
  232. Function DesktopIconsHide()
  233. Dim hwnd As Long
  234. hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
  235. ShowWindow hwnd, 0
  236. End Function
  237. Function ALT_CTRL_DEL_Enabled()
  238. callme (False)
  239. End Function
  240. Function ALT_CTRL_DEL_Disabled()
  241. callme (True)
  242. End Function
  243. Private Sub callme(huh As Boolean)
  244. Dim gd
  245. gd = SystemParametersInfo(97, huh, CStr(1), 0)
  246. End Sub
  247. Function OpenCDROM()
  248. Dim lngReturn As Long
  249. Dim strReturn As Long
  250. lngReturn = mciSendString("set CDAudio door open", strReturn, 127, 0)
  251. End Function
  252. Function EmptRecycle()
  253. Dim retval
  254. retval = SHEmptyRecycleBin(UserControl.hwnd, "", SHERB_NOPROGRESSUI)
  255. End Function
  256. Function MinimizeAll()
  257. Call keybd_event(VK_LWIN, 0, 0, 0)
  258. Call keybd_event(77, 0, 0, 0)
  259. Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
  260. End Function
  261. Function OpenExplore()
  262. Call keybd_event(VK_LWIN, 0, 0, 0)
  263.     Call keybd_event(69, 0, 0, 0)
  264.     Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
  265. End Function
  266. Function FindFiles()
  267. Call keybd_event(VK_LWIN, 0, 0, 0)
  268.     Call keybd_event(70, 0, 0, 0)
  269.     Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
  270. End Function
  271. Function OpenInternetBrowser()
  272. ShellExecute hwnd, "open", "", vbNullString, vbNullString, conSwNormal
  273. End Function
  274. Function InternetConnect()
  275. Dim lResult As Long
  276. lResult = InternetAutodial(Internet_Autodial_Force_Unattended, 0&)
  277. End Function
  278. Function InternetDiconnect()
  279. Dim lResult As Long
  280. lResult = InternetAutodialHangup(0&)
  281. End Function
  282. Function SendEmail()
  283. ShellExecute hwnd, "open", "mailto:", vbNullString, vbNullString, SW_SHOW
  284. End Function
  285. Function Add_Remove()
  286. Dim dblreturn
  287. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", 5)
  288. End Function
  289. Function Add_HardWare()
  290. Dim dblreturn
  291. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", 5)
  292. End Function
  293. Function Time_Date_Settings()
  294. Dim dblreturn
  295. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", 5)
  296. End Function
  297. Function Regional_Settings()
  298. Dim dblreturn
  299. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 5)
  300. End Function
  301. Function Display_Settings()
  302. Dim dblreturn
  303. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", 5)
  304. End Function
  305. Function Internet_Settings()
  306. Dim dblreturn
  307. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", 5)
  308. End Function
  309. Function Keyboard_Settings()
  310. Dim dblreturn
  311. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", 5)
  312. End Function
  313. Function Mouse_Settings()
  314. Dim dblreturn
  315. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", 5)
  316. End Function
  317. Function Modem_Settings()
  318. Dim dblreturn
  319. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", 5)
  320. End Function
  321. Function System_Settings()
  322. Dim dblreturn
  323. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", 5)
  324. End Function
  325. Function Network_Settings()
  326. Dim dblreturn
  327. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", 5)
  328. End Function
  329. Function Password_Settings()
  330. Dim dblreturn
  331. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", 5)
  332. End Function
  333. Function Sounds_Settings()
  334. Dim dblreturn
  335. dblreturn = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", 5)
  336. End Function
  337. Function ShowAbout()
  338. Dim about
  339. about = MsgBox("CompControl.ocx was created by Martin McCormick and can be download from Http://www.planet-source-code.com any questions or comments should be sent to Slimshady_5_5_5@hotmail.com", vbOKOnly + vbInformation, "About")
  340. End Function
  341. Function Copy_File(FileToCopy, Destination)
  342. retval = CopyFile(FileToCopy, Destination, 1)
  343. End Function
  344. Function Delete_File(file)
  345. retval = DeleteFile(file)
  346. End Function
  347. Function Move_File(FileToMove, Destination)
  348. retval = MoveFile(FileToMove, Destination)
  349. End Function
  350. Function FlipMouseButtons()
  351. retval = SwapMouseButton(1)
  352. End Function
  353. Function FormOnTop(form, X, Y, Width, Height)
  354. Dim hnd
  355. hnd = form.hwnd
  356. SetWindowPos hnd, conHwndTopmost, X, Y, Width, Height, conSwpNoActivate Or conSwpShowWindow
  357. End Function
  358. Function Sleep_Millisecs(LengthInMilliseconds)
  359. Sleep (LengthInMilliseconds)
  360. End Function
  361. Function ShutDown_DIALOG()
  362. ShutDown_DIALOG = SHShutDownDialog(0)
  363. End Function
  364. Function Cursor_Show()
  365. ShowCursor (True)
  366. End Function
  367. Function Cursor_Hide()
  368. ShowCursor (False)
  369. End Function
  370. Function Path_Exist(path)
  371. Path_Exist = PathFileExists(path)
  372. End Function
  373. Function PlayWAVFile(file)
  374. PlaySound file, ByVal 0&, SND_FILENAME Or SND_ASYNC
  375. End Function
  376. Function EnableObject(object)
  377. EnableObject = EnableWindow(object.hwnd, True)
  378. End Function
  379. Function DisableObject(object)
  380. DisableObject = EnableWindow(object.hwnd, False)
  381. End Function
  382.