Shannon Shang-I think therefore I am

We came here, you and I, to this place and this profession, to be great, to do great things, and give form to great dreams - and we have

Free Athens Medal Table

If you have your own website and would like to provide your readers with a free Medal Table of the Top 10 medal winning countries at the Athens Olympic Games then by simply adding a small piece of code to your website, you will be able to provide your readers the latest medal tally as it comes to hand.

Just copy the code from Athens Olympics Games Blog, paste it anywhere on your site and get this:

and top right on my home page

blogx code release to psc

The blogx program that i'm using now(http://www.blanksoft.com/blogx) is written by me base on Matthew1471's BlogX

I had expanded some features besides change the UI style and UI language.

I will break off it's reform  up-to-the-minute.In order to share my effort to more peolple,i upload it to planet-source-code. i wish it can bring some convenience to user.

Download it from

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8845&lngWId=4#refresh

 

Use absolute path instead of relative path to increase the security of access database in asp website

When i develop my website with asp,i find the following problem:

My database's path  in the root\database,and my conn.asp(define the connectionstring)in the root\includes

Because the files that need access the database locate in the root,so the connectionstring like this:

“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=./database/database.mdb;"

When you browse the files located the root diectory,it work well,but if someone type this in the address textbox in the internet browser:

http://myserver/includes/conn.asp

it will raise a error:

can't find file “x:\somedirectory\myserver\includes\database\database.mdb“

....

some hacker will find that my database name is database.mdb and it's located x:\somedirectory\myserver\database

so after he(she) download my database to his(her) local harddisk,my private data will exposure.

Reference to some articles ,we can insert “on error resume next “ to skip this error,but i find it's a better way to resolve this problem.

We can build a path string with “Request.ServerVariables("APPL_PHYSICAL_PATH")“ instead of  “Server.MapPath“

After processing like this ,we can include this conn.asp in any page regardless of  it's location.



 

Is this a bug of whidbey
When open a previous version project that has a custom usercontrol with whidbey.if whidbey can't reference this custom control correct,the contour line of form will can't be displayed correct!
The region of contour line doesn't inosculate with the form's figure,General, the region of contour line surround less than the form region actual!
When drag the contour line will mouse ,it can be displayed correct!
the screen snapshoot:


KB Collection For Visual Studio .NET Setup

When i installed Visual Studio .NET , I had gotten some error,souch as :

[04/25/04,20:28:59] Visual Studio .NET Enterprise Architect codename Whidbey - English: [2] ERROR:Error 1935.An error occured during the installation of assembly component {F582BA58-05D1-46B5-8521-8269B1A9AEA4}. HRESULT: -2146234299.
[04/25/04,20:29:00] Visual Studio .NET Enterprise Architect codename Whidbey - English: [2] ACTION FAILURE:Action ended 20:29:00: InstallFinalize. Return value 3.See MSI log for details.
[04/25/04,20:34:27] Visual Studio .NET Enterprise Architect codename Whidbey - English: [2] ERROR processed; exception was thrown for retail build
 Developer Comment:  Action Start message out of order
 Build Time:  Mon Oct 21 21:37:27 2002
 HRESULT:  -2147467259
[04/25/04,20:38:05] Visual Studio .NET Enterprise Architect codename Whidbey - English: [2] ERROR processed; exception was thrown for retail build
 Developer Comment:  Action Start message out of order
 Build Time:  Mon Oct 21 21:37:27 2002
 HRESULT:  -2147467259
[04/25/04,20:38:33] Visual Studio .NET Enterprise Architect codename Whidbey - English: [2] ACTION FAILURE:Action ended 20:38:32: INSTALL. Return value 3.See MSI log for details.
[04/25/04,20:39:30] setup.exe: [2] ISetupComponent::Pre/Post/Install() failed in ISetupManager::InstallManagerHelper()
[04/25/04,20:39:31] setup.exe: [2] Component error string not specified in ISetupManager::AddToActionResultCollection()
[04/25/04,21:58:11] Visual Studio .NET Enterprise Architect codename Whidbey - English: [2] ERROR:Internal Error 2337.

and so on.

So i searched the  microsoft kb library the find the resolvent .and collected some articles also.

The following list is what i had collected.

You must have Windows 2000 Service Pack 3 or later installed to install Visual Studio .NET 2003
http://support.microsoft.com/default.aspx?scid=kb;en-us;820832

FIX: "MS Development Environment Has Not Been Installed" Error Message on Visual Studio .NET Startup
http://support.microsoft.com/default.aspx?scid=kb;en-us;313495

BUG: Readme.htm and Redist.txt Files are Overwritten When You Install Visual J# .NET to the Visual Studio .NET Installation Location
http://support.microsoft.com/default.aspx?scid=kb;en-us;812824

BUG: Visual Studio .NET Application Performance Slows Down After You Install .NET Framework Service Pack 1
http://support.microsoft.com/default.aspx?scid=kb;en-us;323196

BUG: Migration Wizard Appears When You Install and Then Start Visual Studio .NET 2003
http://support.microsoft.com/default.aspx?scid=kb;en-us;814327

PRB: 'Not Installed' or 'Does Not Exist' Error Returned When You Access Visual Studio .NET Help
http://support.microsoft.com/default.aspx?scid=kb;en-us;306873

FIX: Visual Studio Analyzer Does Not Work If Both the .NET Version and the 6.0 Version Are Installed
http://support.microsoft.com/default.aspx?scid=kb;en-us;316052

PRB: "Program Too Big" Error Message When You Try to Install Visual Studio .NET from MSDN Subscriber Downloads
http://support.microsoft.com/default.aspx?scid=kb;en-us;316573

BUG: When You Remove Visual C# .NET an Error May Occur If You Try to Install Visual Studio Tools for Office
http://support.microsoft.com/default.aspx?scid=kb;en-us;823992

PRB: Cannot Modify Installation Path of Visual Studio .NET Components After Visual Studio .NET Is Installed
http://support.microsoft.com/default.aspx?scid=kb;en-us;311855

BUG: "Open With" Shell Command Broken with Visual J# .NET Installed
http://support.microsoft.com/default.aspx?scid=kb;en-us;326710

PRB: "Could Not Access Network Location" Error Message When You Install Visual Studio .NET
http://support.microsoft.com/default.aspx?scid=kb;en-us;330766

FIX: Error Message: Visual Studio Development Environment Has Not Been Installed for the Current User
http://support.microsoft.com/default.aspx?scid=kb;en-us;302586

PRB: "Installation Error 25003" Error Message When You Install Visual Studio .NET
http://support.microsoft.com/default.aspx?scid=kb;en-us;827076

PRB: "Setup Has Detected That Another Program Requires the Computer to Reboot" Error Message When You Try to Install Visual Studio .NET
http://support.microsoft.com/default.aspx?scid=kb;en-us;830608

PRB: Error Message: The Visual Basic 6.0 Upgrade Tool Is Not Installed on This Computer
http://support.microsoft.com/default.aspx?scid=kb;en-us;320305

Visual Studio .NET 2003 Stops Responding During the Solution Build Process if You Have Compuware DriverStudio Installed
http://support.microsoft.com/default.aspx?scid=kb;en-us;828734

FIX: Visual Studio .NET Cannot Open Existing ASP.NET Projects After You Install Internet Protocol Version 6 on Windows XP
http://support.microsoft.com/default.aspx?scid=kb;en-us;818262

PRB: "Setup Failed on Component Setup Runtime Files" Error Message When You Install Visual Studio .NET 2003
http://support.microsoft.com/default.aspx?scid=kb;en-us;818416


PRB: Special Characters and Extended Characters May Cause Visual Studio .NET Setup to Fail
http://support.microsoft.com/default.aspx?scid=kb;en-us;326027


BUG: Error 1935 During Install of the .NET Framework
http://support.microsoft.com/default.aspx?scid=kb;en-us;308096

BUG: Setup Fails When You Install Visual Studio .NET Over a Terminal Service Session from a Mapped Drive
http://support.microsoft.com/default.aspx?scid=kb;en-us;307420

INFO: Mapped Network Drives Not Available in Visual Studio .NET Setup
http://support.microsoft.com/default.aspx?scid=kb;en-us;306033

BUG: Visual Studio .NET Setup Fails on AddShareAndPermissions Custom Action
http://support.microsoft.com/default.aspx?scid=kb;en-us;318003

PRB: Visual Studio .NET 2003 Setup May Fail When Antivirus or Firewall Program Is Running
http://support.microsoft.com/default.aspx?scid=kb;en-us;330733

BUG: Wwwroot Share That Visual Studio .NET 2003 Creates Is Removed When You Quit the Visual Studio .NET 2002 Setup Program
http://support.microsoft.com/default.aspx?scid=kb;en-us;821628

PRB: Error Messages When You Cancel Setup of Visual Studio .NET or the MSDN Library
http://support.microsoft.com/default.aspx?scid=kb;en-us;322950

Dte.olb could not be loaded.Please re-run setup and repair your installation

When i startup vs.net IDE after install Whidbey ,i had gotten a error message ,”Dte.olb could not be loaded.Please re-run setup and repair your installation”.

Then I searched the “DTE.olb” file in local disk,I found it located in “X:\Program Files\Common Files\Microsoft Shared\MSEnv”

Reference to MSDN the dte.olb is the COM Object model  of EnvDTE namespace .So if it hadn't registered successfully, the VS.net IDE would can't work well.

As the file is a COM Object ,so i registered it with regsvr32 function.such as:

regsvr32 c:\Program Files\Common Files\Microsoft Shared\MSEnv\dte.olb

Commonly it can resolve the “Dte.olb could not be loaded“ error when starup the VS.net IDE

MSDN Article:

PRB: Visual IDE Does Not Open When Started or Application Cannot Start Error Message

Correlative samples of DTE Download:

Visual Studio .NET 2003 Automation Samples

 

preview of C# features in Whidbey and Classes and Libraries

very cool preview of C# features in the next version of VS.NET Whidbey

A Sneak Preview of Visual C# Whidbey.

Classes and Libraries from the C# team

http://msdn.microsoft.com/vcsharp/team/code/libraries/default.aspx

Service Pack 6

From Microsoft:

Microsoft Service Pack 6 for Visual Basic 6.0, Visual C++ 6.0 with Visual SourceSafe 6.0d addresses known issues with Visual Basic 6.0, Visual C++ 6.0 and Visual Source Safe 6.0. This service pack does not contain fixes for Visual InterDev 6.0, Visual FoxPro 6.0, and Visual J++ 6.0, as the mainstream life-cycle for these products has ended. This SP replaces SP5 for developers using Visual Basic 6.0, Visual C++ 6.0, and Visual SourceSafe 6.0. Developer using Visual InterDev 6.0, Visual J++ 6.0, and Visual FoxPro 6.0 should continue using SP5.   

List of bugs that are fixed in Visual Studio 6.0 Service Pack 6

 

Download

 

Getting creative with spam too!

Today I received a Creative spam email ,I had token a while to be sure that it's a spam.

 

--------------------------

I was just doing some research about bella sonus in Yahoo and found your domain, blanksoft.com ranked 81...which got me thinking...

I published a informational site about Health - Disabilities. We've got a very strong following, primarily because we only produce informational content, since you also produce a quality site in this category, I'd like to exchange links with you. I get a pretty good amount of visitors to my property, so if I link up to your site you should benefit from a traffic standpoint.

Please take a look at my site when you get a chance -- I think you'll find it to be knowledgeable and useful. If you like what you agree, please link to it -- I'll send you all of my info on your request.

I've already linked to you to get the ball rolling. I'll keep it up a few days until I hear back from you.


Thanks for your time.

Jane Emile
RAC IM: 1022591.

--------------------------

 it looks more legitimate ,because both of the “To” address and “CC:”address is right,and i had added some content about “bella sonus ” in my web too.But there is something that make me interrogative,the leading content in my site is “software and program “,and the “bella sonus “ is musician.

Before i wrote back, i had checked the header of this email,then I got the following information:

-----------------

Return-Path: <jane@janeemile.com>
Delivered-To: webmaster@F
Received: (qmail 81835 invoked from network); 30 Mar 2004 05:04:21 -0000
Received: from unknown (HELO keywordconversions.com) (211.99.218.7)
  by mail.#####.com with SMTP; 30 Mar 2004 05:04:21 -0000
Received: from ([127.0.0.1]) with MailEnable ESMTP; Tue, 30 Mar 2004 04:57:22 +0800
Message-ID: <18581191.1080595515577.JavaMail.Santhosh@211.99.218.7>
From: Jane Emile <jane@janeemile.com>
To: webmaster@blanksoft.com
Subject: blanksoft.com ranked # 81 in Yahoo for bella sonus
Cc: ch21st@hotmail.com
Mime-Version: 1.0
Content-Type: text/plain
Content-Transfer-Encoding: 7bit

----------------------

It appears that keywordconversions.com is the same spammer outfit as racsystems.com mentioned in the article. The letters RAC in the signature line of the mail were a giveaway.

According to a WHOIS lookup the IP the mail came from an “Beijing“,and the  www.janeemile.com doesn;t work

then i found the “janeemile.com.”  in Spam domain blacklist!

I must more cautious for spam in the future!

Trying Windows XP sp2

Just resceived a windows xp2 RC1 2096 cd-rom form Microsoft Windows Product Team!

In order to test it ,I Installed a English version Windows XP SP1

Reading it's document,We can get this information

Microsoft Windows XP Post-SP1 Fixes.

 

My New Private WebSite

I had published a website for myself,design all of it by myself

http://www.blanksoft,com

By this time I had published  a forum(http://bbs.blanksoft.com) on my server besides homepage!

In the future I plan to publish a blog on it!

 

 

Sony Ericsson t61x theme files

The following two themm files were created by  me with Theme Creator Pro 3G and Adobe Photoshop .

Grassland

 

WindowsXP

 

Get the playinf filename from winamp with VB

If we do that with c++,it will be a simply thing.

int index = SendMessage(hwnd_winamp, WM_USER, 0, IPC_GETLISTPOS);
char *name = SendMessage(hwnd_winamp, WM_USER, index, IPC_GETPLAYLISTFILE);

But as a VB programmer ,i want to do that with VB.Because the pointer of file in playlist is relative to winamp process.We can't access it directly.

However we can use GetWindowThreadProcessId,OpenProcess to access memory of other process.

So we can get the playing file name with vb with following code:

 


Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpszClassName As String, ByVal lpszWindowName As String) _
As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hWnd As Long, ByRef lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Const PROCESS_VM_READ As Long = &H10
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_USER As Long = &H400
Private Const IPC_GETPLAYLISTFILE As Long = 211
Private Const IPC_GETLISTPOS As Long = 125
Private Declare Function ReadProcessMemory Lib "kernel32" _
(ByVal hProcess As Long, ByVal lpBaseAddress As Long, _
ByRef lpBuffer As Any, ByVal nSize As Long, _
ByRef lpNumberOfBytesRead As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Private Const MAX_PATH As Long = 260
Private hWndWinamp As Long

Private Function GetWinampWindow() As Long
GetWinampWindow = FindWindow( "Winamp v1.x", vbNullString)
End Function
Public Function GetPlayingFileName() As String
Dim strFileName As String
Dim lp As Long, lpWinamp As Long
Dim iIndex As Long
Dim PID As Long
Dim bRet As Long
Dim dwRead As Long
Dim Buffer(MAX_PATH) As Byte
Dim Temp As String

hWndWinamp = GetWinampWindow
If hWndWinamp = 0 Then
GetPlayingFileName = ""
Exit Function
End If

iIndex = SendMessage(hWndWinamp, WM_USER, 0, IPC_GETLISTPOS)
lp = SendMessage(hWndWinamp, WM_USER, iIndex, IPC_GETPLAYLISTFILE)
If lp = 0 Then
GetPlayingFileName = ""
Exit Function
End If
Call GetWindowThreadProcessId(hWndWinamp, PID)
lpWinamp = OpenProcess(PROCESS_VM_READ, 0, PID)
If lpWinamp = 0 Then
GetPlayingFileName = ""
Exit Function
End If
bRet = ReadProcessMemory(lpWinamp, lp, Buffer(0), MAX_PATH, dwRead)
Call CloseHandle(lpWinamp)

Temp = StrConv(Buffer, vbUnicode)
strFileName = Left$(Temp, InStr(Temp, Chr$(0)) - 1)

GetPlayingFileName = strFileName

End Function
MSN Toolbar beta

We can download it form :

http://toolbar.msn.com/

Search the Web from any Web page.

Use the Highlight Viewer to quickly locate your search words.

Use Quick Links to launch MSN Hotmail, MSN Messenger, and your personalized MSN home page.

Get rid of pop-up ads with the Pop-up Guard.

i tool for converting to visual studio source code to colorized html

During the Spring Festival ,i have written a tool for converting  source code to HTML .

Following is  a  snapshoot :

For example:

source code:

Private Sub printEnder(iFileNumber As Integer)
    Print #iFileNumber, "</pre>"
    Print #iFileNumber, "</td>"
    Print #iFileNumber, "</tr>"
    Print #iFileNumber, "</table>"
    Print #iFileNumber, "<hr>"
'    Print #iFileNumber, "<p align=right style=" & Chr(34) & _
    "COLOR: yellow; FONT-WEIGHT: bold; FONT-SIZE: 8pt; _
    BACKGROUND-COLOR: #339900; FONT-VARIANT: normal;" & _
    Chr(34) & ">  Generate By Code2Html at " & Now
    Print #iFileNumber, "<p align=right style=" & Chr(34) & _
    "COLOR: white; FONT-WEIGHT: bold; FONT-SIZE: 8pt;" & Chr(34) & _
    "><a href="; Chr(34) & "mailto:ch21st@hotmail.com" & Chr(34) & _
    ">  Generate By Code2Html </span>at " & Now
   
    Print #iFileNumber, "</HEAD>"
    Print #iFileNumber, "</HTML>"

End Sub

After process:


Private Sub printEnder(iFileNumber As Integer)
Print #iFileNumber, "</pre>"
Print #iFileNumber, "</td>"
Print #iFileNumber, "</tr>"
Print #iFileNumber, "</table>"
Print #iFileNumber, "<hr>"

' Print #iFileNumber, "<p align=right style=" & Chr(34) & _

"COLOR: yellow; FONT-WEIGHT: bold; FONT-SIZE: 8pt; _

BACKGROUND-COLOR: #339900; FONT-VARIANT: normal;" & _

Chr(34) & "> Generate By Code2Html at " & Now
Print #iFileNumber, "<p" align=right style="" & Chr(34) & _
"COLOR:" white; FONT-WEIGHT: bold; FONT-SIZE: 8pt;"" & Chr(34) & _
"><a" href=";" Chr(34) & "mailto:ch21st@hotmail.com" & Chr(34) & _
">" Generate By Code2Html at "" & Now

Print #iFileNumber, "</HEAD>"
Print #iFileNumber, "</HTML>"

End Sub

--------

It will support VB ,VB. net ,C++,VC ++,C#,and so on .
The Origin of Chinese New Year

Chinese New Year is popularly known as the Spring Festival since it begins in the spring.  Its origin is too old to be traced.  Although there are many speculations about the origin floating around, all agree that the word "Nian," which means "year" in modern Chinese, was the name of a beast that preyed on people on the eve of the lunar new year.

Happy New YearAccording to one legend, the beast Nian had a very big mouth that could swallow a great many people all at once.  Naturally, everyone was scared.  One day, an old man came along and offered to subdue Nian.  To Nian he said, "I heard that you are very capable, but can you swallow other beasts of prey on earth instead of people who are by means of your worthy opponents?"  Taking the old man's challenge, Nian swallowed many of the predators on earth, which were also a nuisance to people and their domestic animals from time to time.

As it turns out the old man was a god, and after subduing Nian, he and the beast disappeared. Now that Nian was gone and the other predators scared into forests, people began to enjoy their peaceful life.  Before the old man left, he told people to put up red paper decorations (as red was the color Nian feared most) on their windows and doors at every year's end to scare away Nian, in case it sneaked back again.

From then on, the tradition of observing the conquest of Nian was carried on from generation to generation.  The term "Guo Nian", which may have meant "Survive the Nian" today means "Celebrate the New Year" ("guo" in Chinese has the dual meaning of "pass-over" and "observe").  The custom of putting up red paper and firing firecrackers--to scare away Nian, should it run loose--is still around, but no longer hold the same meaning.  For many people today, red sets the joyous mood while the popping of firecrackers adds to the excitement of the New Year. 

The Traditions of Chinese New Year

new yearThe most important holiday in China is the Spring Festival, an event comparable to Christmas in the West.  The date for this annual celebration is determined by the Lunar calendar instead of the Gregorian calendar, so the timing of the holiday varies from late January to early February.

Although the climax of the Chinese New Year, Nian, is only two or three days including the New Year's Eve, the New Year season lasts from the mid-twelfth month of the previous year to the middle of the first month of the of the new year.  A month before the New Year is a good time to do business.  People will pour out money to buy presents, decorations, foods and new clothes.  In China, the transportation department, railroad in particular, nervously await the onslaughts of travelers rushing home from all parts of the country to celebrate the New Year with their families.

Days before the New Year, every family is busy thoroughly cleaning the house to wash away the ill-fortune of the current, and soon to be previous year.  Some even give their doors and window-panes a new paint, usually a red color.  They decorate the doors and windows with paper cutting and couplets with a variety of very popular theme: "happiness", "wealth", "longevity" and "satisfactory marriage with more children".  Painting of the same themes are put up in the house on top of the newly mounted wall paper.  In the old days, various kinds of food are presented to ancestors on their altars.

Children in New Year DayThe Eve of the New Year is very carefully observed.  Super is a feast, with all the family members coming together.  One of the most popular course is jiaozi, dumplings boiled in water.  "Jiaozi" in Chinese literally mean "sleep together and have sons", a long-lost good wish for a family. After dinner, the whole family to spend the night while having fun with  cards or board games or watching TV programs dedicated to the occasion. Every light is supposed to be kept on the whole night. At midnight, the whole sky is lit up by fireworks and firecrackers, making everything seem like a war zone. People's excitement reach its zenith.

Very early the next morning, children greet their parents and are given cash presents tucked inside red envelopes. Afterwards, the family travel door to door, first greeting their relatives then their neighbors. The New Year is a great time for reconciliation; old grudges are very easily cast away during the greetings and the air is filled with warmth and friendliness. During and several days following New Year day, people visit each other to exchange gifts. The Festival of Lanterns sets in on the fifteen day of the new year to bring the celebration to a close. It is an occasion of lantern shows and folk dances everywhere. One typical food is Tang Yuan, dumplings made of sweet rice rolled into balls and stuffed with either sweet or spicy fillings.

Several precautions are taken to insure that the New Year will be a good one.  

  • No sweeping is done on New Year's Day since the family's good luck might be swept away with the dirt.

  • Care must be taken not to break any dishes, and the use of knives, scissors, and sharp instrument should be avoided since these things could bring harm, and thus bad luck for the coming year.

  • Hair must be cleaned and set prior to the holiday.  Doing so during the New Year season will create financial setbacks. Beauty shops and barber shops takeHappy advantage of this by hiking their fees two-fold just before the New Year.

New Year is also a time of fear for debtors, as accounts are traditionally settled at the end of the year so that the coming year will begin with a clean slate.

Lion and Dragon Dances and parades are also part of the New Year Celebration.

The days following New Year include more religious ceremonies. The eleventh day is a time for inviting in-laws to dine. The Lantern Festival, held on the fifteenth day after New Year, marks the end of the New Year season, and daily routines resumes. Customs of observing the New Year vary from place to place and between groups of people.

Visual Basic 1.0 screen snap

Visual Basic (VB) is a programming language marketed by Microsoft Corporation. The system for connecting the programming language proper to the graphic user interface is a descendant of a system called Tripod, originally developed by Alan Cooper, and further developed by Cooper and his associates under contract to Microsoft. The internal language itself is a descendant of BASIC. It was first introduced by Microsoft in 1991 with the intention of making programing easier by having a visual basis for designing the user interface, and to some extent, the code.

Visual Basic 1.0 was released for DOS. The language itself was quite sparse, and the interface was barely graphical, using extended ASCII characters to simulate the appearance of a GUI. Visual Basic 2.0 through 3.0 were designed to be run within Microsoft Windows. They were 16-bit applications, and the programs produced by them were also 16-bit applications, ideally run under Windows 3.x. Visual Basic 4.0 was available as a 16-bit or a 32-bit version. The 32-bit version was more powerful, and ran on Windows 95. By version 5.0, Microsoft was releasing Visual Basic exclusively for 32-bit versions of Windows. Programmers who preferred to write 16-bit programs were pleased to find that Visual Basic 5.0 was able to import programs written in Visual Basic 4.0, and it was not difficult to convert Visual Basic 5.0 programs to be compatible with Visual Basic 4.0.

GB and BIG5 translate

We can do it with StrConv Function.

  • The VB6 StrConv function, which performs several different conversions on strings, has an optional argument called LCID to specify a LocaleID for a string different than the local system's LocaleID.
  • Code:

    Option Explicit



    Private Sub Command1_Click()

      Text2.Text = ConvertLang(Text1.Text)

    End Sub



    Private Sub Command2_Click()

      Text3.Text = ConvertLang(Text2.Text, 1) & vbCrLf & ConvertLang(ConvertLang(Text1.Text), 1)

    End Sub



    Private Sub Form_Load()

      Text1.Text = "???????"

    End Sub

    Private Function ConvertLang(ByVal strOrig As String, Optional iModel As Integer = 0) As String

    'iModel=0 for gb to big5,=1 for big5 to gb

    Dim iFormLcid As Long

    Dim iToLcid As Long

    Select Case iModel

      Case 0

        iFormLcid = &H804

        iToLcid = &H404

      Case 1

        iFormLcid = &H404

        iToLcid = &H804

    End Select



    ConvertLang = StrConv(StrConv(strOrig, vbFromUnicode, iFormLcid), vbUnicode, iToLcid)



    End Function

    MERRY CHRISTMAS!

    Today i am going to  say :Merry Christmas to all of the person who I known ,whosoever i love and  whosoever i hate!

    ---------------------------------

    How "Merry Christmas" is said .....


    Happy New Year

    Afrikaans: Ges?nde Kersfees
    Afrikander: Een Plesierige Kerfees
    African/ Eritrean/ Tigrinja: Rehus-Beal-Ledeats
    Albanian:Gezur Krislinjden
    Arabic: Idah Saidan Wa Sanah Jadidah
    Argentine: Feliz Navidad
    Armenian: Shenoraavor Nor Dari yev Pari Gaghand
    Azeri: Tezze Iliniz Yahsi Olsun
    Bahasa Malaysia: Selamat Hari Natal
    Basque: Zorionak eta Urte Berri On!
    Bengali: Shuvo Naba Barsha
    Bohemian: Vesele Vanoce
    Brazilian: Boas Festas e Feliz Ano Novo
    Breton: Nedeleg laouen na bloavezh mat
    Bulgarian: Tchestita Koleda; Tchestito Rojdestvo Hristovo
    Catalan: Bon Nadal i un Bon Any Nou!
    Chile: Feliz Navidad
    Chinese: (Cantonese) Gun Tso Sun Tan'Gung Haw Sun
    Chinese: (Mandarin) Kung His Hsin Nien bing Chu Shen Tan
    (Catonese) Gun Tso Sun Tan'Gung Haw Sun
    Choctaw: Yukpa, Nitak Hollo Chito
    Columbia: Feliz Navidad y Pr?pero A? Nuevo
    Cornish: Nadelik looan na looan blethen noweth
    Corsian: Pace e salute
    Crazanian: Rot Yikji Dol La Roo
    Cree: Mitho Makosi Kesikansi
    Croatian: Sretan Bozic
    Czech: Prejeme Vam Vesele Vanoce a stastny Novy Rok
    Danish: Glædelig Jul
    Duri: Christmas-e- Shoma Mobarak
    Dutch: Vrolijk Kerstfeest en een Gelukkig Nieuwjaar!
    or Zalig Kerstfeast
    English: Merry Christmas
    Eskimo: (inupik) Jutdlime pivdluarit ukiortame pivdluaritlo!
    Esperanto: Gajan Kristnaskon
    Estonian: Ruumsaid juulup|hi
    Faeroese: Gledhilig jol og eydnurikt nyggjar!
    Farsi: Cristmas-e-shoma mobarak bashad
    Finnish: Hyvaa joulua
    Flemish: Zalig Kerstfeest en Gelukkig nieuw jaar
    French: Joyeux Noel
    Frisian: Noflike Krystdagen en in protte Lok en Seine yn it Nije Jier!
    Galician: Bo Nada
    Gaelic: Nollaig chridheil agus Bliadhna mhath ?! German: Froehliche Weihnachten
    Greek: Kala Christouyenna!
    Hausa: Barka da Kirsimatikuma Barka da Sabuwar Shekara!
    Hawaiian: Mele Kalikimaka
    Hebrew: Mo'adim Lesimkha. Chena tova
    Hindi: Shub Naya Baras
    Hausa: Barka da Kirsimatikuma Barka da Sabuwar Shekara!
    Hawaian: Mele Kalikimaka ame Hauoli Makahiki Hou!
    Hungarian: Kellemes Karacsonyi unnepeket
    Icelandic: Gledileg Jol
    Indonesian: Selamat Hari Natal
    Iraqi: Idah Saidan Wa Sanah Jadidah
    Irish: Nollaig Shona Dhuit, or Nodlaig mhaith chugnat
    Iroquois: Ojenyunyat Sungwiyadeson honungradon nagwutut. Ojenyunyat osrasay.
    Italian: Buone Feste Natalizie
    Japanese: Shinnen omedeto. Kurisumasu Omedeto
    Jiberish: Mithag Crithagsigathmithags
    Korean: Sung Tan Chuk Ha
    Latin: Natale hilare et Annum Faustum!
    Latvian: Prieci'gus Ziemsve'tkus un Laimi'gu Jauno Gadu!
    Lausitzian:Wjesole hody a strowe nowe leto
    Lettish: Priecigus Ziemassvetkus
    Lithuanian: Linksmu Kaledu
    Low Saxon: Heughliche Winachten un 'n moi Nijaar
    Macedonian: Sreken Bozhik
    Maltese: LL Milied Lt-tajjeb
    Manx: Nollick ghennal as blein vie noa
    Maori: Meri Kirihimete
    Marathi: Shub Naya Varsh
    Navajo: Merry Keshmish
    Norwegian: God Jul, or Gledelig Jul
    Occitan: Pulit nadal e bona annado
    Papiamento: Bon Pasco
    Papua New Guinea: Bikpela hamamas blong dispela Krismas na Nupela yia i go long yu
    Pennsylvania German: En frehlicher Grischtdaag un en hallich Nei Yaahr!
    Peru: Feliz Navidad y un Venturoso A? Nuevo
    Philipines: Maligayan Pasko!
    Polish: Wesolych Swiat Bozego Narodzenia or Boze Narodzenie
    Portuguese:Feliz Natal
    Pushto: Christmas Aao Ne-way Kaal Mo Mobarak Sha
    Rapa-Nui (Easter Island): Mata-Ki-Te-Rangi. Te-Pito-O-Te-Henua
    Rhetian: Bellas festas da nadal e bun onn
    Romanche: (sursilvan dialect): Legreivlas fiastas da Nadal e bien niev onn!
    Rumanian: Sarbatori vesele
    Russian: Pozdrevlyayu s prazdnikom Rozhdestva is Novim Godom
    Sami: Buorrit Juovllat
    Samoan: La Maunia Le Kilisimasi Ma Le Tausaga Fou
    Sardinian: Bonu nadale e prosperu annu nou
    Serbian: Hristos se rodi
    Slovakian: Sretan Bozic or Vesele vianoce
    Sami: Buorrit Juovllat
    Samoan: La Maunia Le Kilisimasi Ma Le Tausaga Fou
    Scots Gaelic: Nollaig chridheil huibh
    Serb-Croatian: Sretam Bozic. Vesela Nova Godina
    Serbian: Hristos se rodi. Singhalese: Subha nath thalak Vewa. Subha Aluth Awrudhak Vewa
    Slovak: Vesele Vianoce. A stastlivy Novy Rok
    Slovene: Vesele Bozicne. Screcno Novo Leto
    Spanish: Feliz Navidad
    Swedish: God Jul and (Och) Ett Gott Nytt År
    Tagalog: Maligayamg Pasko. Masaganang Bagong Taon
    Tami: Nathar Puthu Varuda Valthukkal
    Trukeese: (Micronesian) Neekiriisimas annim oo iyer seefe feyiyeech!
    Thai: Sawadee Pee Mai
    Turkish: Noeliniz Ve Yeni Yiliniz Kutlu Olsun
    Ukrainian: Srozhdestvom Kristovym
    Urdu: Naya Saal Mubarak Ho
    Vietnamese: Chung Mung Giang Sinh
    Welsh: Nadolig Llawen
    Yugoslavian: Cestitamo Bozic
    Yoruba: E ku odun, e ku iye'dun!
    Microsoft Removing Java From Applications
    While not commenting directly on Microsoft's proposed changes to their application line up, Sun did note that Microsoft users can download the most recent and compatible version of Java so they can have the high performance Java Computing experience on their desktop. Customers can explore exciting Java content and download a free copy of the newest Java software at http://java.com.

    Sun has designed a series of complementary programs for OEMs, consumers, and developers to ensure that a current version of Java software is freely available on desktops worldwide:

    Distribution Agreements - Source and binary redistribution licenses. Industry leading PC vendors such as Apple, DELL, Gateway, HP,Samsung, Toshiba, and Tsinghua Tongfang intend to ship a current version of Java installed on their computers to provide a richer consumer experience. Sun has reached deals with companies representing approximately 50% of the world wide shipping volume of PCs. See the recent announcement at: http://www.sun.com/smi/Press/sunflash/2003-09/sunflash.20030923.1.html

    More Posts Next page »