About florydude

Profile Information
-
OS
Vista Business x86
florydude's Achievements
0
Reputation
-
Do you mean "wb-ie7b1.rar" ? Does not have any iesetup.exe, or I cant read it correct from the server. SP2 Vanilla works fine ATM with no updates, but I could not recover the messages only from a backup-DVD. I don't know what is with this PC since I installed on a 6 GB partition Ubuntu 8.10 and after install was finishing has been stooped at some language files near 100%. On XP SP1 I had similar problems wile I have accessed a shared folder on the server and I could only copy empty files, but after upgrading to SP2 Vanilla now is any file is working fine direct from same server.
-
I lost my messages from more them one year do to a "partition disappearance" and I have on that HDD some downloaded from my ISP server in WLM *.eml format. I did only imported about 10 very important messages and some contacts from the old list to this PC so that I can add them back to Address Book so that not all messages that I receive go direct in Spam Folder and from all other older DVD backups. I try to run WLM so that I can take a more close look on what other emails I have on that PC but there are some dependencies missing from shlwapi.dll that is included with IE7. I do remember that I used on XP SP1a the option /integrate to integrate IE7 B1 it in the C:\CD-Share folder, and I used IE7 with B1 and never worked with B2. I also remember that before I purchased this PC I had a workaround that did come, if I remember correct with "Vista Transformation Pack" to make the kernel use less RAM and the PC worked as works with Base XP. So, I was a little frustrated when I seen that I cant find any copy of IE7 B1, but there are many other ways to make WLM work even to wait 5 minutes for a program to load.
-
Maybe, since is IE7-WindowsXP-x86-enu.exe and not IE7-B1-WindowsXP-x86-enu.exe, then there is no update/iesetup.exe, probably we most run update.exe ... P.S. Maybe someone can integrate this on a CD
-
KernelEx is an Open Source compatibility layer by Xeno86 with an aim to allow running Windows 2000/XP-only applications on Microsoft Windows 98 and Microsoft Windows Millennium operating systems. I remember with a certain version on a Virtual PC with Win98 running some simple programs that do not run on Win2k, WinXP, etc.
-
Wine (originally an acronym for "Wine Is Not an Emulator") https://www.winehq.org/about/ ...
-
It's a Compaq Desktop 5086 with 200Mhz CPU (50x4) and 128 MB RAM (32x4 Edo) where I keep some very old stuff, and I need to recover some old messages and other stuff. SP2 may work but SP3 is out of question.
-
There is any kernelx for xp that allows to run programs in compatibility mode like in wine ?
-
Anyone still have a copy of IE7-B1-WindowsXP-x86-enu.exe ? I know that B1 may work on Windows XP with sp1a ...
-
Hello, Aynone knows whatever Calibri font is included in any other package that can be downloaded from download.microsoft.com website, other then MS Office ? According to wiki: Calibri is a humanist sans-serif typeface family under the Microsoft ClearType Font Collection. In Microsoft Office 2007, it replaced Times New Roman as the default typeface in Word[1] and replaced Arial as the default in PowerPoint, Excel, Outlook, and WordPad. It continued to be the default typeface in Microsoft Office 2010 and Microsoft Office 2013 applications. Thank you.
-
Get Key
florydude replied to gunsmokingman's topic in Programming (C++, Delphi, VB/VBS, CMD/batch, etc.)
Done with the attach. Also worked on how the get the servers list for syncronising the time-date: ' ' TimeDate Server List Script - ServersList.vbs ' ' '*************************************************************************** Option Explicit Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") Dim Tme Set Tme = WScript.CreateObject("WbemScripting.SWbemDateTime") Dim objWMIService Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") '-> Text Output Objects Dim ARW ARW = Chr(160) & Chr(187) & Chr(160) Dim RegKey, strDefault, strList RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\" Dim strTimeServersKey strTimeServersKey = RegKey & "Windows\CurrentVersion\DateTime\Servers" '-> Read RegistryKey/DefaultValue Function GetList (strTimeServersKey, strDefault) On Error Resume Next Dim i,j,k Dim Servers Servers = " " k = 0 Do k = k + 1 WSHShell.RegRead(strTimeServersKey & "\" & k) Loop While err.number = 0 Err.Clear j = k - 1 Dim ServersDigit() For i = strDefault to j Do i = i + 1 ReDim Preserve ServersDigit(i) ServersDigit(i) = WSHShell.RegRead(strTimeServersKey & "\" & i) Servers = Servers & VbCrLf & i & ARW & ServersDigit(i) Loop While err.number = 0 Next GetList = Servers strList = " DateTime Servers List " & ARW & ServersDigit End Function if WScript.arguments.count<1 then strList = GetList(strTimeServersKey, 0) MsgBox "Date-Time Servers: " & strList, vbinformation, "DateTime Servers" else MsgBox "Usage: CScript ServersList.vbs", vbinformation, "DateTime Servers" WScript.quit end if Can be fixed a little more on how the array is builded etc. ServersList.zip -
Get Key
florydude replied to gunsmokingman's topic in Programming (C++, Delphi, VB/VBS, CMD/batch, etc.)
I ported the GetKey() function to a simple VBS script: ' ' GetKey.vbs v1.0 by flory ' ' '*************************************************************************** ' ' Option Explicit 'Use VbCrLf ON ERROR RESUME NEXT Dim WSHShell, KEY, ID Set WSHShell = WScript.CreateObject("WScript.Shell") Dim strResultKey, strResultId Dim Tme Set Tme = WScript.CreateObject("WbemScripting.SWbemDateTime") Dim objWMIService Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") '-> Text Output Objects Dim ARW ARW = Chr(160) & Chr(187) & Chr(160) Dim RegKey RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\" Dim strProductKey, strProductID, strProductOS strProductKey = RegKey & "Windows NT\CurrentVersion\DigitalProductId" strProductID = RegKey & "Windows NT\CurrentVersion\ProductId" Dim strDefault strDefault = "ProductId" '-> Get The TimeDate Server Key Function GetKey(ByVal rpk) Dim i, j Dim dwAccumulator, KeyProductID dwAccumulator = "" KeyProductID = "" Const rpkOffset = 52 : i = 28 Dim szPossibleChars szPossibleChars = "BCDFGHJKMPQRTVWXY2346789" Do dwAccumulator = 0 : j = 14 Do dwAccumulator = dwAccumulator * 256 dwAccumulator = rpk(j + rpkOffset) + dwAccumulator rpk(j + rpkOffset) = (dwAccumulator \ 24) And 255 dwAccumulator = dwAccumulator Mod 24 j = j - 1 Loop While j >= 0 i = i - 1 : KeyProductID = Mid(szPossibleChars, dwAccumulator + 1, 1) & KeyProductID If (((29 - i) Mod 6) = 0) And (i <> -1) Then i = i - 1 : KeyProductID = "-" & KeyProductID End If Loop While i >= 0 GetKey = KeyProductID KEY = " " & ARW & KeyProductID End Function if WScript.arguments.count<1 then strResultKey = GetKey(WSHShell.RegRead(strProductKey)) strResultId = Left(Replace(WSHShell.RegRead(strProductID),"-",""),8) MsgBox "ProductKey: " & strResultKey & VbCrLf & "Product PID: " & strResultId, vbinformation, "Windows Install Check" else WScript.echo "Correct usage: Cscript GetKey.vbs" WScript.quit end if I'm wondering how can such function list all key / values from a simple registry key as for example: strTimeServersKey = RegKey & "Windows\CurrentVersion\DateTime\Servers" for let's say an array of 6 values : [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers] @="2" "1"="time.windows.com" "2"="time.nist.gov" "3"="timekeeper.isi.edu" "4"="usno.pa-x.dec.com" "5"="tock.usno.navy.mil" "6"="tick.usno.navy.mil" GetKey_vbs.zip