
gingerbloke
Active Members-
Posts
32 -
Joined
-
Last visited
gingerbloke's Achievements

Seeker (1/7)
0
Reputation
-
All fair points and taken on-board. I left my system checking with your program last night and just have a few things to report: 1- It got stuck in a 'ChkDsk' & 'PageDefrag' loop and kept re-starting even though it had completed the scans. May be my system but not checked this out yet. 2- It appears to have de-activated Antivir on re-start. 3- Reset some of the 'Spyware Doctor' settings including turning off IntelliGuard Have you considered an option 'tab' to list all the 'startup' items so that the user can disable specific or all startup items. It might also be an option to do this for non-default services also I do appreciate this could cause problems but as an 'All Else Failed' option it could help a lot of people? Other than that, I see now that you already had the things I suggested already included. Gingerbloke
-
Great program, it is running on my system at the moment as a test. Could I also suggest the following: 1> 'PageDefrag' to defragment system files (page file, registry Hive etc..) at startup using syntax: "c:\filepath\PageDefrag\pagedfrg" -o 2> Advanced Windows Care - I use the Beta Version for system maintenance using the syntax: "c:\Program Files\IObit\Advanced WindowsCare V2\AutoCare.exe" /care I also use AntiVir Free using the following syntax: "c:\Program Files\Avira\AntiVir Desktop\update.exe" /DM="0" "/NOMESSAGEBOX" ;To update the program "c:\Program Files\Avira\AntiVir Desktop\avscan.exe" /CFG="c:\program files\avira\antivir desktop\sysscan.avp" ;To run full scan It may already do it (have not fully looked at the code yet) but a drive scan to delete 'junk files' such as .tmp, ~*.* etc would also be useful and a good compliment to CCleaner. Once again great program Gingerbloke
-
This one turned out to be an 'addon' for Windows Messenger that my kids use. It instaled itself as a service to allow itself to keep going whilst the system was running. I had to trace it back from the process starting up the hidden internet explorer programs. My next project I think will be to monitor (using the process tree) processes trying to run from temp files or temporary internet whilst online and kill them. Gingerbloke
-
trancexx At the time yes, but you have taught me a good lesson about links: "Click Everywhere Just In Case". See, the saying that you learn something new everyday is correct! Since my last post, the word came to mind 'Treeview' so I searched on that and found how to get parent, grandparent and all the way back to 'Great Uncle Bulgaria' (the wombles for anyone that does not know) Here is the link if anyone wants it: <Click Here> I have just found that it is a program running as a service so I will disable it and see if that works. I will checkout your links as well so thanks for your help Gingerbloke
-
Got you know, I am not used to links via pictures etc... so missed it. The program works great but did not solve my issue. I will explain: I was hoping to see which programs were accessing the internet because I keep getting popups that no virus or malware scanners detect (Antivir,Spybot, Spyware Doctor, Adaware, A-squared). Unfortunately, I am only seeing 2 internet explorer programs that are hidden and when I try and kill the process they just keep starting up again. Does anyone know how to get the 'parent' program that tells another program to run? For example, if I had an Autoit program open 'Notepad', is there a way to identify that my Autoit program started a particular instance of Notepad? I have checked the startup locations and nothing is extra to what I would expect so I need to find what is causing me the issue. Sorry to go the long way round but I was hoping that my original request would give the answer. If you think this would be better asked as a new topic then please say. Gingerbloke
-
I had to find the script again but here is a modified one: #include <GUIConstants.au3> #include <WindowsConstants.au3> GUICreate("Based on Lod3n's Bandwidth Monitor:",220,100,0,0,-1,$WS_EX_TOOLWINDOW) $label1 = GUICtrlCreateLabel ( "Waiting for data...", 10, 5,200,20) $label2 = GUICtrlCreateLabel ( "Waiting for data...", 10, 50,200,20) GUISetState () $wbemFlagReturnImmediately = 0x10 $wbemFlagForwardOnly = 0x20 $colItems = "" $strComputer = "localhost" $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") while 1 $colItems = $objWMIService.ExecQuery("SELECT BytesReceivedPersec,BytesSentPersec FROM Win32_PerfRawData_Tcpip_NetworkInterface", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) then For $objItem In $colItems ToolTip($objItem.Name, 0, 0) ; sleep (1000) ; If $objItem.Name = "ADAPTER NAME HERE" Then ;MUST PUT ADAPTER NAME HERE $in = $objItem.BytesReceivedPersec $out = $objItem.BytesSentPersec $intext = "Bytes In: " & $in & @CRLF $outtext = "Bytes Out: " & $out [email="&@CRLF"]&@CRLF[/email] GUICtrlSetData ($label1,$intext) GUICtrlSetData ($label2,$outtext) ; EndIf Next EndIf sleep(100) If GUIGetMsg() = $GUI_EVENT_CLOSE Then ExitLoop WEnd Her is the link to the original program: <Click Here> Hope this helps Gingerbloke
-
Need help with Children internet control
gingerbloke replied to Borje's topic in AutoIt General Help and Support
Good points, I am used to using English configurations and to be honest, I have no idea what sort of changes other language settings have on a system (other than keyboard layout, times etc). All I can suggest is checking the Devcon syntax for your particular systems setup. Regarding WMI, most systems I have come across allow it and luckily, on this occassion, the system was OK with it. I do not have a script for checking the network without using WMI. Borje, It may help if you can check the devcon commands for your language settings and if possible, adjust the command accordingly. Sorry I cannot help with this but I just went to the Swedish language site for Microsoft and sorry to say, I do not understand the language Please let me know if you find out that the command is different. All the best Gingerbloke -
Need help with Children internet control
gingerbloke replied to Borje's topic in AutoIt General Help and Support
Borje, I have tried the XP code on 3 of my systems and it works on them. They are using wired and wireless hardware and all turn off within a few seconds. I know I may be teaching you to 'Suck Eggs' but have you tried compiling it before running the .exe? The only other thing I can suggest is checking if your Network device is identified as such. The below script should tell you if it finds your device. (it's someone else's script I have slightly modified). Dim $aNetworkInfo $cI_CompName = @ComputerName Global $wbemFlagReturnImmediately = 0x10, _ $wbemFlagForwardOnly = 0x20 $lan = 0 _ComputerGetNetworkCards($aNetworkInfo) $networkcard = $aNetworkInfo[0][0] For $i = 1 to $aNetworkInfo[0][0] If StringInStr ($aNetworkInfo[$i][19], "Local Area Connection") And StringInStr ($aNetworkInfo[$i][0], "Ethernet") Then ;MsgBox (0, "", $aNetworkInfo[$i][0] & @CRLF & $aNetworkInfo[$i][19]) MsgBox (0, "", $aNetworkInfo[$i][4]) ; show the network card name $lan = 1 ElseIf StringInStr ($aNetworkInfo[$i][19], "Wireless Network Connection") And StringInStr ($aNetworkInfo[$i][0], "WLAN") Then MsgBox (0, "", $aNetworkInfo[$i][0] & @CRLF & $aNetworkInfo[$i][19]) $lan = 1 ElseIf StringInStr ($aNetworkInfo[$i][0], "Ethernet") And $aNetworkInfo[$i][19] <> "" And Not StringInStr ($aNetworkInfo[$i][0], "1394") Then MsgBox (0, "", $aNetworkInfo[$i][0] & @CRLF & $aNetworkInfo[$i][19]) $lan = 1 EndIf Next If $lan = 1 Then MsgBox (0, "", "Yes, You have a network card installed !") ElseIf $lan = 0 Then MsgBox (0, "", "No, No network cards installed !") EndIf Func _ComputerGetNetworkCards(ByRef $aNetworkInfo) Local $colItems, $objWMIService, $objItem Dim $aNetworkInfo[1][34], $i = 1 $objWMIService = ObjGet("winmgmts:\\" & $cI_Compname & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) Then For $objItem In $colItems ReDim $aNetworkInfo[UBound($aNetworkInfo) + 1][34] $aNetworkInfo[$i][0] = $objItem.Name $aNetworkInfo[$i][1] = $objItem.AdapterType $aNetworkInfo[$i][2] = $objItem.AdapterTypeId $aNetworkInfo[$i][3] = $objItem.AutoSense $aNetworkInfo[$i][4] = $objItem.Description $aNetworkInfo[$i][5] = $objItem.Availability $aNetworkInfo[$i][6] = $objItem.ConfigManagerErrorCode $aNetworkInfo[$i][7] = $objItem.ConfigManagerUserConfig $aNetworkInfo[$i][8] = $objItem.CreationClassName $aNetworkInfo[$i][9] = $objItem.DeviceID $aNetworkInfo[$i][10] = $objItem.ErrorCleared $aNetworkInfo[$i][11] = $objItem.ErrorDescription $aNetworkInfo[$i][12] = $objItem.Index $aNetworkInfo[$i][13] = $objItem.Installed $aNetworkInfo[$i][14] = $objItem.LastErrorCode $aNetworkInfo[$i][15] = $objItem.MACAddress $aNetworkInfo[$i][16] = $objItem.Manufacturer $aNetworkInfo[$i][17] = $objItem.MaxNumberControlled $aNetworkInfo[$i][18] = $objItem.MaxSpeed $aNetworkInfo[$i][19] = $objItem.NetConnectionID $aNetworkInfo[$i][20] = $objItem.NetConnectionStatus $aNetworkInfo[$i][21] = $objItem.NetworkAddresses(0) $aNetworkInfo[$i][22] = $objItem.PermanentAddress $aNetworkInfo[$i][23] = $objItem.PNPDeviceID $aNetworkInfo[$i][24] = $objItem.PowerManagementCapabilities(0) $aNetworkInfo[$i][25] = $objItem.PowerManagementSupported $aNetworkInfo[$i][26] = $objItem.ProductName $aNetworkInfo[$i][27] = $objItem.ServiceName $aNetworkInfo[$i][28] = $objItem.Speed $aNetworkInfo[$i][29] = $objItem.Status $aNetworkInfo[$i][30] = $objItem.StatusInfo $aNetworkInfo[$i][31] = $objItem.SystemCreationClassName $aNetworkInfo[$i][32] = $objItem.SystemName $aNetworkInfo[$i][33] = __StringToDate($objItem.TimeOfLastReset) $i += 1 Next $aNetworkInfo[0][0] = UBound($aNetworkInfo) - 1 If $aNetworkInfo[0][0] < 1 Then SetError(1, 1, 0) EndIf Else SetError(1, 2, 0) EndIf EndFunc ;_ComputerGetNetworkCards Func __StringToDate($dtmDate) Return (StringMid($dtmDate, 5, 2) & "/" & _ StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _ & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2)) EndFunc ;__StringToDate Function created by SvenP Modified by JSThePatriot I have been running 'ipconfig' for my program but one computer lost network connection permanently that is why I moved over to the above scripts. I cannot be sure if it was the commands or a specific computer issue so it might work fine for you. One problem I found with ipconfig was that if a program was already accessing the internet when the cut-off time was reached, I had to terminate the process because it could still access the internet for quite a while after it should have stopped. This drove my kids mad when their screen just cleared. I am still working on my program so if you don't need it for a week, I will post it soon. Gingerbloke -
I am trying to monitor which programs are accessing the internet but I just do not know where to start. I have looked on the forum and found examples for monitoring the amounts of information being sent/received by my computer but none that will just give me a list of what programs are connected to the internet. All I am after is the ability to list the current running programs with internet access ie: iexplorer.exe, msn.exe ...... If it is possible with Autoit could you please point me in the right direction please? Gingerbloke
-
Need help with Children internet control
gingerbloke replied to Borje's topic in AutoIt General Help and Support
I am currently working on a Parental Controls Program and will post it when complete. In the meantime you could always use windows scheduler to run one of the following dependant on your Operating system: (scripts written by others) For XP: you will need Devcon from microsoft. put it in the same location as the script is run. #include <GUIConstantsEx.au3> Global Const $DEVCON = @ScriptDir & "\devcon.exe" XPNETDISABLE () ;XP DISABLE NETWORK ADAPTER FUNC XPNETDISABLE () ShellExecute($DEVCON, "disable ms_pschedmp", "", "", @SW_HIDE) ENDFUNC ;XP ENABLE NETWORK ADAPTER FUNC XPNETENABLE () ShellExecute($DEVCON, "enable ms_pschedmp", "", "", @SW_HIDE) ENDFUNC For Vista: ; $iFlag = 0 ;Disable network interface ; $iFlag = 1 ;Enable network interface _ToggleNetworkInterface('local area connection', 1) Func _ToggleNetworkInterface($strNetwork, $iFlag = 1) Local $wbemFlagReturnImmediately = 0x10 Local $wbemFlagForwardOnly = 0x20 Local $strComputer = "localhost" $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) Then For $objItem In $colItems If $objItem.NetConnectionID = $strNetwork Then If $iFlag = 0 And $objItem.NetEnabled = True Then $objItem.Disable ElseIf $iFlag = 1 And $objItem.NetEnabled = False Then $objItem.Enable EndIf ExitLoop EndIf Next Else MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_NetworkAdapter") EndIf EndFunc Hope this helps Gingerbloke -
Appologies for this! I am also having to decipher the mess I caused in one of my programs as well. About the Hearing Aid Idea, I Love It but unfortunately, I could not find the USB port for the keyboard on my one so I will have to give that a pass. I wasn't lying about you lot having great knowledge though. Now if you excuse me, I need an Asprin!