简单python脚本实例画图maya渲染

发布时间:2021-06-10 来源:脚本之家 点击:

[程序语言]MicrosoftVisualBasic4.0,5.0,6.0
[运行平台]WINDOWS
[功能描述]IPX和NETBIOS接口需要网络地址
<%
rem文章标题:利用vbs类实现css按钮
rem作者:yanek
rem联系:aspboy@263.net

ClassCssButton

PublicName
PublicBackColor
PublicBorderColor
PublicFont
PublicFontColor
PublicWidth
PublicText
PublicUrl

PublicMouseOverColor


PublicFunctionGenerateStyleTag()
'CreatetheSTYLEtag
DimstrStyle
strStyle="<STYLETYPE=""text/css"">"&vbCrLf&_
"<!--"&vbCrLf&_
"#mybutton"&Name&"{border-style:inset;"&vbCrLf&_
"border-color:"&BorderColor&";"&vbCrLf&_
"background-color:"&BackColor&";"&vbCrLf&_
"width:"&Width&";"&vbCrLf&_
"text-align:center;}"&vbCrLf&vbCrLf&vbCrLf&_
"A.buttontext"&Name&"{color:"&FontColor&";"&vbCrLf&_
"text-decoration:none;"&vbCrLf&_
"font:"&Font&";"&vbCrLf&_
"cursor:hand;}"&vbCrLf&vbCrLf&vbCrLf&_
".buttonover"&Name&"{color:"&MouseOverColor&";"&vbCrLf&_
"text-decoration:none;"&vbCrLf&_
"font:"&Font&";"&vbCrLf&_
"cursor:hand;}"&vbCrLf&_
"//-->"&vbCrLf&_
"</STYLE>"

GenerateStyleTag=strStyle
EndFunction


PublicFunctionGenerateButtonTag()
DimstrHTML
strHTML="<ahref="""&Url&"""class=""buttontext"&Name&""""&_
"onMouseOver=""this.className='buttonover"&Name&"';"""&_
"onMouseOut=""this.className='buttontext"&Name&"';"">"&_
vbCrLf&"<divid=""mybutton"&Name&""">"&vbCrLf&Text&vbCrLf&"</div></a>"&vbCrLf

GenerateButtonTag=strHTML
EndFunction

EndClass

rem建立类的实例

DimbtnYahoo,btnLycos
SetbtnYahoo=NewCssButton
SetbtnLycos=NewCssButton

rem设置按钮对象的相关属性

btnYahoo.BackColor="#aaaaaa"
btnYahoo.BorderColor="#bbbbbb"
btnYahoo.Font="bold12ptVerdana"
btnYahoo.FontColor="black"
btnYahoo.Width="80px"
btnYahoo.MouseOverColor="yellow"
btnYahoo.Url=""
btnYahoo.Name="yahoo"
btnYahoo.Text="Yahoo!"

rem调用方法输出按钮
Response.WritebtnYahoo.GenerateStyleTag()
Response.WritebtnYahoo.GenerateButtonTag()
Response.Write"<p></p>"



rem设置按钮对象的相关属性
btnLycos.BackColor="#aaaaaa"
btnLycos.BorderColor="#bbbbbb"
btnLycos.Font="10ptArial"
btnLycos.FontColor="black"
btnLycos.Width="70px"
btnLycos.MouseOverColor="yellow"
btnLycos.Url=""
btnLycos.Name="lycos"
btnLycos.Text="Lycos"

rem调用方法输出按钮
Response.WritebtnLycos.GenerateStyleTag()
Response.WritebtnLycos.GenerateButtonTag()
%>

时尚片拍摄脚本怎么写


重新运行脚本,没想到还是一样一、利用API获取窗口的标题ば陆ù疤澹疲铮颍恚焙桶磁ィ茫铮恚恚幔睿洌豹ぴ诖疤迥?橹刑砑尤缦麓码:
OptionExplicit
PrivateDeclareFunctionGetWindowTextLib"us—
er32"Alias"GetWindowTextA"(ByValhwndAs
Long,ByVallpStringAsString,ByValcchAs
Long)AsLong
'在窗体声明节中加入API函数“GetWindowText”的说明
'函数将向lpstring中载入要获得的窗体caption
PrivateSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
DimcaplenAsLong
captext=String$(100,0)
caplen=99
returncode=GetWindowText(ByValme.hwnd,
ByValcaptext,ByValcaplen)
printreturncode
Printcaptext
Printcaplen
EndSub
二、获取鼠标在当前窗口(客户区)的屏幕坐标そ立一新项目窗体form1并添加控件文本框Text1、Text2ぴ诖疤迥?橹惺淙耄邯
OptionExplicit
PrivateDeclareFunctionGetCursorPosLib"user32"
(lpPointAsPOINTAPI)AsLong
PrivateTypePOINTAPI
XAsLongYAsLong
EndType
DimptAsPOINTAPI
DimreturncodeAsLong
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
MaxButton=False
MinButton=False
Form1.WindowState=2
EndSub
PrivateSubForm_MouseMove(ButtonAsInteger,
ShiftAsInteger,XAsSingle,YAsSingle)
'注意pt结构是按引用传递的
returncode=GetCursorPos(pt)
Text1.Text=pt.X
Text2.Text=pt.Y
EndSub
三、记录Windows使用时间
建立新项目窗口form1,输入代码:
PrivateSubForm_Load()
form1.visible=false
Openapp.paht+"memo.txt"ForAppendAs#1
Print#1,"启动windows:"&CStr(Now)
Close#1
EndSub
PrivateSubForm_Unload(CancelAsInteger)
Openapp.paht+"memo.txt"ForAppendAs#1
Print#1,"关闭windows:"&CStr(Now)
Close#1
End
EndSub
最后将此程序加入启动组即可

(绿色是标题,蓝色的是原作者,红色的部分就是需要修改的部分,根据你自己的实际情况修改)

======打开迅闪菜单的同时连接虚拟磁盘的VBS======
SetWshShell=WScript.CreateObject("WScript.Shell")
Return=WshShell.Run("c:\client\新调用.exe",0,true)
Return=WshShell.Run("iscsicliAddTargetPortal192.168.0.93260",0,true)
Return=WshShell.Run("iscsicliLoginTargetiqn.2005-02.com.ricecake.iscsi:00T***************0",0,true)
SetWshShell=Nothing

======开机VBS调用远程批处理(延时+无黑屏后台运行的效果)======
DIMobjShell
setobjShell=wscript.createObject("wscript.shell")
WScript.Sleep(10000)
iReturn=objShell.Run("cmd.exe/C\\server\E\123.bat",0,TRUE)

======修改IE状态栏显示字符的注册表(感谢雷锋战友和15楼的ciwzero)======

WindowsRegistryEditorVersion5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones\3]
@=""
"DisplayName"="XX网吧"

======批处理获得本机的IP和MAC地址然后进行绑定(zzlike写的)======@echooff
for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"PhysicalAddress"')dosetmac=%%j
for/f"tokens=1*delims=:"%%iin('ipconfig/all^|find/i"IPAddress"')dosetip=%%j
arp-s%ip:~1%%Mac:~1%

======强制刷新组策略和注册表======
xp/2003命令
gpupdate/force
2k命令
secedit/refreshpolicymachine_policy/enforce

======批处理修改IE主页(斑竹dseation的帖上搞来的)======
@regdelete"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/f
@regadd"HKEY_CURRENT_USER\Software\Microsoft\InternetExplorer\Main"/v"StartPage"/d""/f

======解除禁止下载的几种方法======
VBS代码:
DIMWSH
SETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
WSH.POPUP("本程序的作用是解决无法下载的问题")
WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones03",0,"REG_DWORD"
WSH.POPUP("现在您可以下载程序了!")

JS代码:
VARWSHShell=WSCRIPT.CREATOBJEt("WSCRIPT.SHELL");
WSHShell.Popup("本程序解决无法下载的问题,");
WSHShell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones03",0,"reg_dword");

INF代码
[Version]
Signature="$CHICAGO$"
[DefaultInstall]
DelReg=Del
[Del]
HKCU,"Software\Microsoft\Windows\CurrentVersion\InternetSettings\Zones",1803

======屏蔽WIN2003开机弹出的错误对话框:在系统启动时至少有一个服务或驱动程序产生错误======
WindowsRegistryEditorVersion5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows]
"NoPopUpsOnBoot"=dword:00000001

======导入注册表不给任何提示的方法(百乐门网吧原创)======


======简单三步,更改序列号解决WINDOWSXP在线升级问题======
1)在〔开始〕→〔执行〕→〔Regedit〕→〔HKEY_LOCAL_MACHINE〕→〔SOFTWARE〕→〔Microsoft〕→
〔WindowsNT〕→〔CurrentVersion〕在〔WPAEvents〕内将〔OOBETimer〕的头两个数值〔FF〕删除
2)在〔开始〕→〔执行〕→〔oobe/msoobe/a〕进入〔启动画面〕→选择第二项〔电话启动〕
3)在进入下一个视窗,选择〔changeproductkey〕来修改序列号及输入新的序列号,完成后点击〔update〕进行更新及选〔remindmelater〕以后提醒注册即可请看下面的代码示例,它使一个密码框拒绝非字母的输入:

  (1)类cls的代码;

  OptionExplicit'变量检查

   PrivateWithEventsmytxtAsTextBox

   '本类中的方法接受和控制一个text密码框

   DimisNUMAsBoolean

   '类的模块级变量

   PublicSubAttach(itTEXTAsTextBox)

   '接受外部变量到mytxt中

   Setmytxt=itTEXT

  EndSub

  PrivateSubmytxt_KeyUp(KeyCodeAsInteger,ShiftAsInteger)

    isNUM=(KeyCode>=65)And(KeyCode<=90)

    '测试密码框的键盘输入是否是英文字母

    IfisNUM=FalseThen

     Beep

     mytxt.Text=""

     '如果输入不是英文字母则响铃并且清空密码框内容

     MsgBox"非法字符输入

WScript.Echo"EnablingKerberosLogging..."
constHKEY_LOCAL_MACHINE=&H80000002
strComputer="."
SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\"&_
strComputer&"\root\default:StdRegProv")
strKeyPath="SOFTWARE\999"
strDWORDValueName="DWORDValueName"
strExpandedStringValueName="ExpandedStringValueName"
strMultiStringValueName="MultiStringValueName"
strStringValueName="StringValueName"
strValueName="strValueName"
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,StringValueName
oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName
WScript.Echo"-=[Complete!]=-"

    详细信息关于Unicode和ANSI转换的详细信息,请参阅第十六章“国际化”


On Error Resume Next
if (lcase(right(wscript.fullname,11))="wscript.exe") then
wscript.echo "Execute it under the cmd.exe Plz! Thx."
wscript.quit
end If

if Wscript.Arguments.count=0 Then
usage()
wscript.quit
End If

Set Arg=Wscript.Arguments
Sport=Split(arg(1),",")
For i=0 To UBound(Split(arg(1),","))
wsh.echo "scan "&Sport(i)&" ing……"
Set x=CreateObject("msxml2.serverXMLHTTP")
x.open "post",""&arg(0)&":"&Sport(i)
x.send("hello")
wsh.echo Space(3)&"error.NuMbEr:"& ERr.NuMbEr & Space(5)&"ERr.Description:"&ERr.Description
if ERr.NuMbEr=0 Or ERr.NuMbEr=-2147012866 Or ERr.NuMbEr=-2147012894 Or ERr.NuMbEr=-2147012744 Or ERr.NuMbEr=-2147467259 Then
wsh.echo Space(3)&" The "&Sport(i)&" port is OPEN"
End if
next

function usage()
wscript.echo "| 注意查看ERr.Description来判断端口开放,自动探测不一定准确 |"
wscript.echo "| |"
wscript.echo "|Useage: |"
wscript.echo "| cscript.exe this.vbs ip port |"
wscript.echo "|ex: |"
wscript.echo "| cscript.exe this.vbs ip 80 or 80,123,445…… |"
wscript.echo "+-------------------------------------------------------------------+"&chr(10)
end function
职业学校宣传片

OptionExplicit

PublicDeclareFunctionChangeDisplaySettingsLib"user32.dll"Alias"ChangeDisplaySettingsA"

(ByReflpDevModeAsDEVMODE,ByValdwFlagsAsLong)AsLong
PublicDeclareFunctionEnumDisplaySettingsLib"user32.dll"Alias"EnumDisplaySettingsA"(ByVal

lpszDeviceNameAsString,ByValiModeNumAsLong,ByReflpDevModeAsDEVMODE)AsLong

ConstDM_PELSHEIGHTAsLong=&H100000
ConstDM_PELSWIDTHAsLong=&H80000
ConstDM_BITSPERPELAsLong=&H40000
ConstDM_DISPLAYFREQUENCYAsLong=&H400000

ConstCCHDEVICENAMEAsLong=32
ConstCCHFORMNAMEAsLong=32
ConstCDS_TEST=&H4

PrivateTypeDEVMODE
dmDeviceNameAsString*CCHDEVICENAME
dmSpecVersionAsInteger
dmDriverVersionAsInteger
dmSizeAsInteger
dmDriverExtraAsInteger
dmFieldsAsLong
dmOrientationAsInteger
dmPaperSizeAsInteger
dmPaperLengthAsInteger
dmPaperWidthAsInteger
dmScaleAsInteger
dmCopiesAsInteger
dmDefaultSourceAsInteger
dmPrintQualityAsInteger
dmColorAsInteger
dmDuplexAsInteger
dmYResolutionAsInteger
dmTTOptionAsInteger
dmCollateAsInteger
dmFormNameAsString*CCHFORMNAME
dmUnusedPaddingAsInteger
dmBitsPerPelAsInteger
dmPelsWidthAsLong
dmPelsHeightAsLong
dmDisplayFlagsAsLong
dmDisplayFrequencyAsLong
EndType

'-------------------------------------------------------------------------------------------
'LngWidth//屏幕的宽(单位象素)
'LngHeight//屏幕的高(单位象素)
'IntColor//多少位颜色(e.g16or32)
'LngFrequency//屏幕的刷新频率
'
'声明:
'调用该函数时要确定所设置的值在系统所允许的设置范围内,比如系统的最大刷新频率位80,而你
'用把LngFrequency设位85,这样将带来无法预测的后果Set Form =CreateObject("Forms.Form.1")。

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