魔兽兄弟脚本破解版bat实例文件下载

发布时间:2021-12-19 来源:脚本之家 点击:

请在声明区中放入以下声明

ConstGWL_EXSTYLE=(-20)
ConstWS_EX_TRANSPARENT=&H20&
ConstSWP_FRAMECHANGED=&H20
ConstSWP_NOMOVE=&H2
ConstSWP_NOSIZE=&H1
ConstSWP_SHOWME=SWP_FRAMECHANGEDOrSWP_NOMOVEOrSWP_NOSIZE
ConstHWND_NOTOPMOST=-2

PrivateDeclareFunctionSetWindowLongLib"user32"Alias"SetWindowLongA"(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
PrivateDeclareFunctionSetWindowPosLib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValxAsLong,ByValyAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)AsLong

在Form_Load使用的范例如下:

PrivateSubForm_Load()
SetWindowLongMe.hwnd,GWL_EXSTYLE,WS_EX_TRANSPARENT
SetWindowPosMe.hwnd,HWND_NOTOPMOST,0&,0&,0&,0&,SWP_SHOWME
Me.Refresh
EndSub->


Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2)=" Thousand "
Place(3)=" Million "
Place(4)=" Billion "
Place(5)=" Trillion "
' String representation of amount.
MyNumber=Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace=InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents=GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber=Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count=1
Do While MyNumber <> ""
Temp=GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars=Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber=Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber=""
End If
Count=Count + 1
Loop
Select Case Dollars
Case ""
Dollars="No Dollars"
Case "One"
Dollars="One Dollar"
Case Else
Dollars=Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents=" and No Cents"
Case "One"
Cents=" and One Cent"
Case Else
Cents=" and " & Cents & " Cents"
End Select
SpellNumber=Dollars & Cents
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber)=0 Then Exit Function
MyNumber=Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result=GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result=Result & GetTens(Mid(MyNumber, 2))
Else
Result=Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds=Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result="" ' Null out the temporary function value.
If Val(Left(TensText, 1))=1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result="Ten"
Case 11: Result="Eleven"
Case 12: Result="Twelve"
Case 13: Result="Thirteen"
Case 14: Result="Fourteen"
Case 15: Result="Fifteen"
Case 16: Result="Sixteen"
Case 17: Result="Seventeen"
Case 18: Result="Eighteen"
Case 19: Result="Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result="Twenty "
Case 3: Result="Thirty "
Case 4: Result="Forty "
Case 5: Result="Fifty "
Case 6: Result="Sixty "
Case 7: Result="Seventy "
Case 8: Result="Eighty "
Case 9: Result="Ninety "
Case Else
End Select
Result=Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens=Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit="One"
Case 2: GetDigit="Two"
Case 3: GetDigit="Three"
Case 4: GetDigit="Four"
Case 5: GetDigit="Five"
Case 6: GetDigit="Six"
Case 7: GetDigit="Seven"
Case 8: GetDigit="Eight"
Case 9: GetDigit="Nine"
Case Else: GetDigit=""
End Select
End Function
dnf红木脚本卡盟
set fn=fso.GetFile("E:\AD.txt")

项目要求: 计算一个字符串的长度(对日项目VB.NET)


On Error Resume Next
strComputer="."

Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colItems=objWMIService.ExecQuery("Select * from Win32_Processor",,48)

For Each objItem in colItems
WScript.Echo "LoadPercentage: " & objItem.LoadPercentage
Next
包括支持Oracle和SQLServer下的数据库模式和存储过程设计的企业可视化数据库工具(EnterpriseVisualDatabaseTools);SQLServer6.5开发版;与VSAM以及AS400/IBM主机上的DB/2数据库具有连通性的SNAServer4.0开发版

处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本)

setws=createobject("wscript.shell")
setfso=createobject("scripting.filesystemobject")
SetobjIE=CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
s=objIE.document.parentwindow.clipboardData.GetData("text")
objie.quit
setfile=fso.createtextfile("tmp.txt")
file.writes
file.close
ws.run"cmd/cmoretmp.txt>test.txt",0,true
fso.deletefile"tmp.txt"
ws.run"notepad.exetest.txt"
看起来是否很麻烦?然而,使用以下的函数就能解决这个问题

VBS其实存在两种标识符:

普通标识符(NORMALIDENTIFIER)
中括号标识符(BRACKETIDENTIFIER)
但是我看过的VBS书籍上都只讲了普通标识符,没有讲中括号标识符定时执行输出用记录集锁定可以锁定Recordset对象基本表,也可以指定只读或(和)只写访问

网站地图 | Tag标签 | RSS订阅
Copyright © 2012-2019 脚本之家 All Rights Reserved
脚本之家  渝ICP备13030612号