<％
'*******************************
'関数：isvalidusername（byvalusername）
'パラメーター：ユーザー名、ユーザー名
著者：アリクシ
'日付：2007/7/15
'説明：ユーザー名に違法文字が含まれているかどうかを確認してください。違法文字なしで戻ります：true
'例：isvalidusername（byvalusername）
'*******************************
functionisvalidusername（byvalusername）
ディミ、c
isvalidusername = true
fori = 1tolen（username）
c = lcase（mid（username、i、1））
ifinstr（ "$！<>？＃^％@〜`＆*（）;：+= '"" ""、c）> 0then
isvalidusername = false
exitFunction
endif
次
エンド機能
％>