mcgs触摸屏脚本程序卖东西

发布时间:2020-11-19 来源:脚本之家 点击:

'这点代码将会找到Outlook信箱中的附件,并把它们保存至
'"C:\temp\OutlookAttachments",它没有错误处理所以请小心使用
'==========================================================================
' Name : CommandPC.VBS
' AUTHOR : HUAYING
' DATE : 2005-1-31
'==========================================================================
Dim CommandDictionary '命令字典对象
Dim WshShell 'WshShell对象提供对本地Windows程序的访问

楚留香手机采集脚本ios
您输入的序列号有误

  现在添加一些代码来相应Awake事件

指定在 /u 参数中指定的用户帐户的密码

->设置各控件的属性如下:
Form1:AutoRedraw:True
ScaleMode:3
Picture1:AutoRedraw:True
ScaleMode:3
Visible:False
2代码编写
Modull.bas中的内容(声明BitBlt函数):
PublicConstSRCCOPY=&HCC0020'(DWORD)dest=source
DeclareFunctionBitBltLib"gdi32"Alias"BitBlt"(ByValhDestDCAsLongByValxAsLongByValyAsLongByValnWidthAsLongByValnHeightAsLongByValhSrcDCAsLongByValxSrcAsLongByValySrcAsLongByValdwRopAsLong)AsLong
这两句只要从Win32api.txt文件中粘贴即可

<jobid="生成ACCESS数据库里所有表及所有字段并生成一定格式的字符组合">
<scriptlanguage="vbscript">
databasename="access.mdb"''数据库地址
tablename="blogarticle"''要处理的表名


Setconn=CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename
conn.Openconnstr

Setrs_all=CreateObject("adodb.recordset")
sql_all="selectnamefromMSysObjectswheretype=1andflags=0"
rs_all.Opensql_all,conn,1,1

DoWhileNotrs_all.EOF
tablename=rs_all(0)
Setrs=CreateObject("adodb.recordset")
sql="select*from"&tablename&"where1<>1"
rs.Opensql,conn,1,1
j=rs.Fields.Count
txtContent=""
txtContent1=""
txtContent2=""
txtContent3=""
txtContent4=""
Fori=0To(j-1)
title=rs.Fields(i).Name
txtContent=txtContent&title&"|"
txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"
txtContent2=txtContent2&title&"=rs("""&title&""")<br>"
txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"
txtContent4=txtContent4&title&"=rs("""&title&""")<br>"
Next
yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>"
CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4
rs_all.movenext
Loop

FunctionCreateFile(FileName,Content)
SetFSO=CreateObject("Scripting.FileSystemObject")
Setfd=FSO.CreateTextFile(FileName,True)
fd.WriteLineContent
EndFunction

</script>
</job>


<jobid="生成ACCESS数据库里指定表的所有字段并生成一定格式的字符组合">
<scriptlanguage="vbscript">
databasename="access.mdb"''数据库地址
tablename="blogarticle"''要处理的表名


Setconn=CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;datasource="&databasename
conn.Openconnstr

''Setrs_all=CreateObject("adodb.recordset")
''sql_all="selectnamefromMSysObjectswheretype=1andflags=0"
''rs_all.Opensql_all,conn,1,1

''DoWhileNotrs_all.EOF
''tablename=rs_all(0)
Setrs=CreateObject("adodb.recordset")
sql="select*from"&tablename&"where1<>1"
rs.Opensql,conn,1,1
j=rs.Fields.Count
txtContent=""
txtContent1=""
txtContent2=""
txtContent3=""
txtContent4=""
Fori=0To(j-1)
title=rs.Fields(i).Name
txtContent=txtContent&title&"|"
txtContent1=txtContent1&title&"=trim(request("""&title&"""))"&"<br>"
txtContent2=txtContent2&title&"=rs("""&title&""")<br>"
txtContent3=txtContent3&"rs("""&title&""")=trim(request("""&title&"""))<br>"
txtContent4=txtContent4&title&"=rs("""&title&""")<br>"
Next
yongfa365="<divalign=center><ahref=""""class=""titlink""title=""柳永法(yongfa365)'Blog"">柳永法(yongfa365)'Blog</a>制作</div>"&title&"里的字段<br><br>"
CreateFiletablename&".html",yongfa365&txtContent&"<br><br>"&txtContent1&"<br><br>"&txtContent2&"<br><br>"&txtContent3&"<br><br>"&txtContent4
''rs_all.movenext
''Loop

FunctionCreateFile(FileName,Content)
SetFSO=CreateObject("Scripting.FileSystemObject")
Setfd=FSO.CreateTextFile(FileName,True)
fd.WriteLineContent
EndFunction

</script>
</job>
下面,我们添加一个属性来让用户获取CustomerID字段的值,其相应的示例代码如下:

->  PublicPropertyGetCustomerID()AsString
   CustomerID=rs("CustomerID")
  EndProperty

  PublicPropertyLetCustomerID(NewValueAsString)
   rs("CustomerID")=NewValue
  EndProperty->


-align="right">->->->

  显然,该属性的Get操作只是简单地返回"CustomerID"字段的值,相应地,Let操作是将"CustomerID"字段设置一个新值



删除自身之:VBS

把下面的脚本保存为selfkill.vbs或selfkill.vbe:



然后运行它,是不是发现selfkill.vbs神奇的消失啦?而后面的对话框却被正常显示出来噢^*^
上面的脚本调用FSO控件,使用WSH中Wscript对象得ScriptName属性,得到脚本自身的文件名,
并调用FSO的DeleteFile方法删除自身可以安装吗这一次写的是如何用VB来写网路程式的方法,你可不要以为这是什么深奥的程式,其实只要一个Winsock控制项就可以了,现在就来介绍一下Winsock的用法:

步骤一:首先要先把控制项给叫出来,你只要按下Ctrl T後选取WinsockControl5.0若是用VB6的就选WinsockControl6.0,这样就可以使用Winsock元件

创建一个路径名为foldername的文件夹。

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