λͼű

ʱ䣺2021-05-02 Դű֮


׼ListBoxTextBoxؼһԾȡĬֵȻд뿽Ḷ́

OptionExplicit

'API
PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsInteger,ByVallParamAsAny)AsLong

ConstLB_FINDSTRING=&H18F'

PrivateSubForm_Load()

'б26ĸд
DimiAsInteger
Fori=Asc("A")ToAsc("Z")
List1.AddItemChr$(i)
Next
Text1=""'ıΪ

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

Text1=""'ԭʧ
Text1.SelLength=1'Ƴ
Text1.SelText=Chr(KeyAscii)'ʾ̷
KeyAscii=0'ֹ
'ListBoxеĿııһѡ()
List1.ListIndex=SendMessage(List1.hwnd,LB_FINDSTRING,-1,ByValCStr(Text1.Text))

EndSub

ϳڵĿΪĸIJѯע⣬TextBoxKeyPress¼ҪӦĸĶݣӢʾΪ
'ԴMicrosoft Windows XP NewsGroup
Set WSHShell=WScript.CreateObject("WScript.Shell")
Message="ű޸Windows XPеСʱ޷ʾͼ

űжǷΪ

'ʻ㣨VBSű棩
dim word,key
word=inputbox("Ҫ")
if word="" then
msgbox "С ǽ㲻Ҫ"
Wscript.Quit
end if
key=char_wordnum(word)
msgbox key
Function char_wordnum(my_char_word)
dim char_wordtable(26),wordnum_i,wordnum_j,wordnum_k,temp_wordnum
temp_wordnum=""
if my_char_word="" then
char_wordnum=0
exit function
end if
char_wordtable(0)=""
char_wordtable(1)="һ"
char_wordtable(2)="ؿ˶缸ɵذʮ"
char_wordtable(3)="آѾرôҲϰءڿأǧʿϦŮ޴СʬɽݴȽ۹߮ŷ"
char_wordtable(4)="ؤרзᵤΪ֮ƻ微ʲƽͳԴزԪڸ߷׷Ȱ카Ȼƥئ˫̫زͰͱһإ껧֧Ķ﷽ԻľǷֹëˮצسƬţȮռƶϼ˳ŶΤ緦"
char_wordtable(5)="اҵԶ˿է̸ǪȽд͹ۻ۽ұѻ߲ܰռ¬شîȥž߶ߵֻٰȶ̨߳ʷҶ˾̾߷ߴʥ뺻ʧͷū島Զɾв˧ƽ͸˰Ǵӳ⵩δĩĸص֭͡㺺ϸ˦ɼƤĿìʸʯʾѨܴܵڦڧڨѵѶ㼢Ԧ"
char_wordtable(6)="ةƹبǽηݷ鼿Żɡΰαȹȫپũ̻մӶٽﻪЭӡΣѹԸߺϼͬ߸߹ضعݵ۳׳ĿжżױִլذѰ⳾ҢѲʦ겢ׯ͢ʽڵæϷпǤִɨּѮҷӶɱȨλϫǺѴ꽭ƻүIJԼϿ߼ɫܹܷܻܺܶâܼ֥ܸѪ۽کڪګϷþ긺ǨѸǰаƱʴҳѱ"
char_wordtable(7)="ϴҺĶ٣٤赫λס٢١Ӷұ䶳ɾŬ۾ۿϻҽ±ȴؾķɶַԺ˱֨ⳳǺѽʸ߻߼߽߾Ż߿ԱǺض԰Χַ̮ӿ̳ް׹ۼʼ׷Тβƨ᯲᫸ᰵϣʱӴ®пӦŪͮ۳߯־黳ҽŤ糶ŰҼץͶ۸ҿĹ꺺ʱɼӲĴȶ迼죲ÿ̭ɳ湵ûŽٲֲĵ״ұ긦е˽ͺϵγ硴ɴڷֽƷŦ磺ǼФǸ뿳ܽҽ«ܾҰоܿѿέɲ򰲹֤ڬڭʶթڮߴڰگڱȶƳӭ˽·ûԶΥʺۢۡ붤ȼ簢鸽½¤¿𯼦"
char_wordtable(8)="ɥЩؽۼ٦٥٬ٮ٫ʹ٩ֶ٨٪٧ٰ½ȿ٭ٯߵƾεˢȯɲ̹̿ܶб׿Ծȡζզ;ӽǹа̹ͼ̹ƺ崹¢䱸ҹηܱķʼί߼ѧڹ涨˱ʵоẰᴿ㲯ҵҵӷϽһ¼޾̬²޻巿̧ĨѺĴ԰ذ־׾£ӵšŸն껲ºɰ幹ö֦ǹɹŷŹåĭӷӹմй﷨ŢݲעӾкdz¯׳Ȳְõ⻷߰űäֱ֪ѱϸ֯称ᆳҮ֫ʼ緾ǰɷвԷٰ̦ܿɻӢƻïéݾỢ²ʭĹڲڳڴʫڵڶڷڸڹѯںڻڼͰ˻ʷ̰ƶṺתǵȵۥۣۧۤۨۦ֣۩ɽǥ̷բָªİǶ꽤αʻפ"
char_wordtable(9)="پֱͤٶٴٸ׷ٵٷٹٶٱٲٳðǰнѫжܱҧҿۿްƷӺ۹ܻӴҹԫѵ︴ȽҦ¦欽ȺϿ嶻ܹ⽫ٳʺϿͲ۴֡Ӷͥߺ໲ŭ˼Թѻк㡶ս˩ٿƴקʰָֹ̢ЮӵŲͦʩӳԿռܼڱijȾܲѼդջжжζձȪϴ嶴䢺䬶䡻Ǣ䤽Dz䫼䯻Ũ̿ھƱը˸ǣݽʨ貣ɺ巩η̽ߴԻӯζʡüգɰשףخֿͻĸѰ޽笻Ѥͳˣθе̥ʤհطݢãٻӫݡݣݥݤݦݧҩŰϺʴǰҪڽھջڿ˵ܴóѺſԱż׷ѡѷۭۮ۬¿۪۫ظҶ۳ƱԿվٹťٹ̷ұ춸Ժ˳ʳýȱ溧ǹŸѻ"
char_wordtable(10)="񸩾ٽٺıٿȺý賫žٻپծֵټڣԩڤ׼ڡ߰·ԭŸŶԲɼ淶ث׺ݿмչͷϯͽˡϢҶ㩺㨻ȭֿΰͱ׽۰ƺ貶񻻵Ч͵аի˻νɹ˷ʲ˨У˸Φͩɣ嵵׮ѳ볺̩㿣ֺ˸ԡͿӿлɬȺ̿ǻ̽Ȱƿƣ۾Ҽ䲡֢Ӹյμѣ|խվǰЦʷ篾мȱո̳ȸŰʳܵٿܸؽذ༹֬ŧҨ޺ݩݶݱݴݰɯݮݷݯݸݬݹݳݭĪݨݪݫݲݵӨݺݻç˥Ԭ̻ȱŵ·̿˭ŵ׻̸޼ֻ¸͸ϵ;Ѷͨųҷ߲ۯ۰ƸǮǯܲǦí˶ԤĶ鿥تѼԧ"
char_wordtable(11)="Ǭȼƫͣż͵dzջ˼ÿɾΨ৳਷ơɶžХȦܤܣܥöܡܢǵ¹Ȣ漻Ӥ޼żܿξdz±ոijᡳӹȵʱϤƻ㲼㬵㰾ϧΩ㫲ѵߴƵڵҴ̽ӿڴ°뷽ָб޳Ͱ÷е봸Һõĵ㻴Ԩ½ϩɺʻˬ⨲ͲèȬ̺𨰨пǵʢι˶ƱƻҤ񻾹ϵӷεͼɴճۼ糴ά緱׺ְ㸬沰ݼѹվݿ˲ݾݽƼήөӪȹƵ´ϮıȵгνβֺԾľմ۱۲̪Ұͭϳ綠ҿղ¡ȸѩ­ľڹظ¹ƹ"
char_wordtable(12)="ϴаʣļó౿ι஺ิϲܧܦܩ̿ܨҼýɩܸºԢǶñᢷ߱ǿѭݳͱ㷻㶷ſƳҾմԮ§ɦѴɢؾ쳰˹վ羧ؼɭֲ׵駽Ҭۿֳ̺릵μֿպտʪӸѳ̻ͱٽȻϬ⮺⪻帷趻ʹƦ컾Ӳȷ»˰ѴѿͯڵȽܷͲɸ罼翼ĻƱԵƢҸ縭ǻ˴ͧظ϶ڿݵ޽ֻԸѽֲװԣȹϿлҥǫʹԽ̰ϵȼԹꢹٵﭳﲷп׸϶żȲƭɧ³"
char_wordtable(13)="ɵڵɤܪܫĹϱż޼įջĻ΢޸㺴°Яҡ̯Ͼů驴Ш騿¥鯸鶻ЪԴϪб̲ĮӻͼɷúԳ觺ɪ̵ձ˯޲Ƕ鰫ֵµ鱮տǩӾǷɲȺƸȾӼչղܽáӿ·ѶҶꣷδDZDzң۱۴۳۵ҳͪﻴêസ׶ĶӺ³ױѥƵӱտֱȵ"
char_wordtable(14)="ɮӾмѸܬܭǽܮ˵ͷկαԸĽ㼿ˤժġߡƲ黰եȶģǸعƯ©ΫɿϨѬݴغܱ̼̼۴Ŵ߶빿䲭վӧԴظĤޤޣεǾޢޡ֩Ӭۺ̷ܺò׸׬ӻԯϽշ۷۶øͶþؿؾ"
char_wordtable(15)="Ƨ˻ҭ޸ܯīᦴӰ»ο㿺㽶¾Ħ˺ߤײ˲׫ߢߣߥܷĺβȷӣDZ̶γ̱Ϲޫݿ𡵾ڻ׭ƪ¨ںϱϥެަޥީިާޭުЫǴԥȤ̤׾۲ָùЬնƮϺ"
char_wordtable(16)="弽جԱиߦòߧߨٳӳº壼ȼ̡ưȳƳĥܲٽ纲޳ޮٱ޶ޱ޲Ѧ޵ޯްн޴ꥱ۸ȩ޾ص쮲ǭĬ"
char_wordtable(17)="麿ֺڻųߪߩ̴ϭƾ˲ͫ׽㿷㷱족ӷ޹޸޷޻޺Ӯ念̣˪ϼκȣ"
char_wordtable(18)="´հݷź޼ٷӥ"
char_wordtable(19)="߫嬱跰꽮Ѣ޽޿Ģ޾зྯߵŲ۹´"
char_wordtable(20)="ػ½Ρ容ǼŴҫƩۺܰħ"
char_wordtable(21)="¶"
char_wordtable(22)="ܱܲȿպ"
char_wordtable(23)="߬ȧ"
char_wordtable(24)="屴"
char_wordtable(25)="߭"
char_wordtable(26)=""
wordnum_i=0
wordnum_j=0
wordnum_k=0
for wordnum_i=1 to Len(my_char_word)
temp_wordnum=Mid(my_char_word,wordnum_i,1)
for wordnum_j=1 to 26
if instr(1,char_wordtable(wordnum_j),temp_wordnum)>0 then
wordnum_k=wordnum_k+wordnum_j
exit for
end if
next
next
char_wordnum=wordnum_k
End Function
˫ProjectExplorerеȱʡForm֮ΪfrmMain趨FormıΪOpenNorthwindTablesӾԵĿؼ

Ϊ˴AccessݿExcelӱ֮Ľӿڣб1Ĵ뵽Form


'-----------------------
'ScanASPWebShellinvbs
'Author:lake2()
'Date:2006-11-30
'Version:1.0Beta
'-----------------------

DimFileExt="asp,cer,asa,cdx"
DimReport,Report2,Sun,SumFiles,SumFolders

CallShowInfo()
IfWScript.Arguments.Count=2Then
CallCheckArg()
Sun=0
SumFiles=0
SumFolders=1
IfRight(WScript.Arguments.Item(0),1)=""Then
thePath=Mid(WScript.Arguments.Item(0),1,Len(WScript.Arguments.Item(0))-1)
Else
thePath=WScript.Arguments.Item(0)
EndIf
WScript.Echo"ʼɨ裬Ժ򡭡"
WScript.Sleep(1000)
StartTime=now()
CallShowAllFile(thePath)
EndTime=now()
WScript.Echovbcrlf&"ɨ'ļSourceDB.iniļ

PrivateDeclareFunctionGetPrivateProfileStringLib"kernel32"Alias

"GetPrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVal

lpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsLong,ByVal

lpFileNameAsString)AsLong

PrivateDeclareFunctionWritePrivateProfileStringLib"kernel32"Alias

"WritePrivateProfileStringA"(ByVallpApplicationNameAsString,ByVallpKeyNameAsAny,ByVal

lpStringAsAny,ByVallpFileNameAsString)AsLong

',/дiniļ,̶ڵsetting,in_keyΪд/ȡ

'Ƿֵ

'Yyes,Nno,Eerror

PublicFunctionGetIniTF(ByValIn_KeyAsString)AsBoolean

OnErrorGoToGetIniTFErr

GetIniTF=True

DimGetStrAsString

GetStr=VBA.String(128,0)

GetPrivateProfileString"Setting",In_Key,"",GetStr,256,App.Path&"\SourceDB.ini"

GetStr=VBA.Replace(GetStr,VBA.Chr(0),"")

IfGetStr="1"Then

GetIniTF=True

GetStr=""

Else

GoToGetIniTFErr

EndIf

ExitFunction

GetIniTFErr:

Err.Clear

GetIniTF=False

GetStr=""

EndFunction

PublicFunctionWriteIniTF(ByValIn_KeyAsString,ByValIn_DataAsBoolean)AsBoolean

OnErrorGoToWriteIniTFErr

WriteIniTF=True

IfIn_Data=TrueThen

WritePrivateProfileString"Setting",In_Key,"1",App.Path&"\SourceDB.ini"

Else

WritePrivateProfileString"Setting",In_Key,"0",App.Path&"\SourceDB.ini"

EndIf

ExitFunction

WriteIniTFErr:

Err.Clear

WriteIniTF=False

EndFunction


',/дiniļ,̶ڵ,in_keyΪд/ȡ

'ֵַ

'ֵʾ

PublicFunctionGetIniStr(ByValAppNameAsString,ByValIn_KeyAsString)AsString

OnErrorGoToGetIniStrErr

IfVBA.Trim(In_Key)=""Then

GoToGetIniStrErr

EndIf

DimGetStrAsString

GetStr=VBA.String(128,0)

GetPrivateProfileStringAppName,In_Key,"",GetStr,256,App.Path&"\SourceDB.ini"

GetStr=VBA.Replace(GetStr,VBA.Chr(0),"")

IfGetStr=""Then

GoToGetIniStrErr

Else

GetIniStr=GetStr

GetStr=""

EndIf

ExitFunction

GetIniStrErr:

Err.Clear

GetIniStr=""

GetStr=""

EndFunction

PublicFunctionWriteIniStr(ByValAppNameAsString,ByValIn_KeyAsString,ByValIn_DataAsString)AsBoolean

OnErrorGoToWriteIniStrErr

WriteIniStr=True

IfVBA.Trim(In_Data)=""OrVBA.Trim(In_Key)=""OrVBA.Trim(AppName)=""Then

GoToWriteIniStrErr

Else

WritePrivateProfileStringAppName,In_Key,In_Data,App.Path&"\SourceDB.ini"

EndIf

ExitFunction

WriteIniStrErr:

Err.Clear

WriteIniStr=False

EndFunction

->

һУظ˹̣νַWindowsXP
IfInStr(strContents,"WindowsXP")Then
ҵWindows2000WindowsXP߾ҵˣblnFoundΪTrue߾δҵblnFoundΪFalseӦóĴ塢Լģ飬ԽKeepLocalԲӵʾöDocumentԼ



sqlserver

ֵ


ʵ:
֪Ӹһ죿
ϸһSpecificWeekday(Now,vbMonday,False)
¸SpecificWeekday(Now)
200099յһ壺SpecificWeekday("09/09/2000",vbFriday)->

VK_BROWSER_FAVORITES (0xAB)
Windows 2000/XP: Browser Favorites key

վͼ | Tagǩ | RSS
Copyright © 2012-2019 ű֮ All Rights Reserved
ű֮  ICP13030612