Forum Home
PC World Chat
Thread ID: 83580	2007-10-06 04:07:00	In The Mail Mr. Black	SurferJoe46 (51)	PC World Chat

Post ID	Timestamp	Content	User
598540	2007-10-11 08:09:00	Got all that now, guys. Well, worked out how to read it, but have no idea how to write it. If you view the page source.......you might get a clue......	joemac (9739)
598541	2007-10-11 08:47:00	I could read them, but what's in the post!!!!!! :( Do you use a mouse? Left click and wave it about. Oh wait you might get a peel me. This has been on PressF1 before. Far be it for me to make a real spoiler.	Sweep (90)
598542	2007-10-11 08:59:00	:D -------:xmouth: --:badpc:----:thumbs: I think I finally figured it out - Am I right? _______________	Sherman (9181)
598543	2007-10-11 09:01:00	Do you use a mouse? Left click and wave it about. Oh wait you might get a peel me. This has been on PressF1 before. Far be it for me to make a real spoiler. :blush: Didn't think of doing it that way :blush:	Sherman (9181)
598544	2007-10-11 15:18:00	:cool: Yup Sherm!:p Ya got it...now give yourself a beer and an A+ for the week.:lol: :rolleyes:	SurferJoe46 (51)
598545	2007-10-11 15:39:00	This is the way we used to inject code in older systems.....it was there but it couldn't be seen... the computer could read it and would execute it though. NOTE TO MODS: The following code is incomplete and will NOT run...I promise!! Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" _ (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long Private Declare Function RegCloseKey Lib "advapi32.dll" _ (ByVal hKey As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _ (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Private Const HKEY_CLASSES_ROOT = & H80000000 Private Const SYNCHRONIZE = & H100000 Private Const KEY_NOTIFY = & H10 Private Const KEY_ENUMERATE_SUB_KEYS = & H8 Private Const KEY_QUERY_VALUE = & H1 Private Const STANDARD_RIGHTS_ALL = & H1F0000 Private Const READ_CONTROL = & H20000 Private Const STANDARD_RIGHTS_READ = (READ_CONTROL) Private Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE)) Private Const ERROR_SUCCESS = 0 & Private Const REG_SZ = 1 ' Unicode nul terminated string Private Const BUFFER_SIZE = 1024 'The following function truncate the null character from a string. Private Function TrimZero(str As String) As String Dim lngPos As Long lngPos = InStr(str, Chr$(0)) If lngPos > 0 Then TrimZero = Mid$(str, 1, lngPos - 1) Else TrimZero = str End If End Function Private Sub GetFilenameFromClass(strActiveXClass As String) Dim hKeyCLSID As Long Dim hKeyClassFile As Long Dim strCLSID As String Dim strBuffer As String * BUFFER_SIZE Dim blnError As Boolean Dim blnFound As Boolean 'Find the class name in the Registry, under the HKEY_CLASSES_ROOT branch. If RegOpenKeyEx(HKEY_CLASSES_ROOT, strActiveXClass & "\CLSID", 0, KEY_READ, hKeyCLSID) = ERROR_SUCCESS Then 'If we find the right key, read the CLSID value. If RegQueryValueEx(hKeyCLSID, "", 0, REG_SZ, ByVal strBuffer, BUFFER_SIZE) = ERROR_SUCCESS Then strCLSID = TrimZero(strBuffer) 'find the key containing the class filename: If RegOpenKeyEx(HKEY_CLASSES_ROOT, "CLSID\" & strCLSID & "\InprocServer32", 0, KEY_READ, hKeyClassFile) = ERROR_SUCCESS Then blnFound = True ElseIf RegOpenKeyEx(HKEY_CLASSES_ROOT, "CLSID\" & strCLSID & "\LocalServer32", 0, KEY_READ, hKeyClassFile) = ERROR_SUCCESS Then blnFound = True End If	SurferJoe46 (51)
598546	2007-10-12 00:25:00	wow :eek: ..... really thought it was more complicated than this. Very clever :lol:	never-u-mind (6500)
598547	2007-10-13 22:48:00	Anything there yet? It's been almost a week if it didn't get held up in customs . . . I declared the true value of the discs . . $2 . 00USD, so you should not have any duties to pay anyway . Enter "The Dome Of Silence" . . . :D	SurferJoe46 (51)
598548	2007-10-13 23:43:00	Got all that now, guys. Well, worked out how to read it, but have no idea how to write it. Use White text on white background. I did it here ages ago, it was common knowledge after that. Cheers Billy 8-{)	Billy T (70)
598549	2007-10-14 00:17:00	Use White text on white background. I did it here ages ago, it was common knowledge after that. Cheers Billy 8-{) Awww...you wazznt supposed to spoil it....<sniff>	SurferJoe46 (51)
1 2 3 4 5