demon_blog demon_blog
关注数: 3 粉丝数: 43 发帖数: 337 关注贴吧数: 6
想用基拉祈码换羊驼码 前几天错过羊驼码领取了，哪位大神有多余的可以跟我换一下吗
口袋黄的第一个道馆你们是怎么打的？ 我是皮卡丘练到约会电光一闪，抓两只会沙攻击波波（能碰到比比鸟更好），两只会摇尾巴的小拉达，最后一只随意，用沙攻击降命中，摇尾巴降防，比卡丘做最后一击
被忍者蛙吊打 首发地龙，对面首发忍者蛙，对方用急冻光线，气息腰带发动，结果结冰了 换草蛇，绿叶风暴，对方居然剩1点血，急冻光线，又结冰了 果断拔线
VBS短信飞信发送类（VBSFetion） 感谢 black_mady 分享的飞信接口 http://tieba.baidu.com/f?kz=1101975565
VBS调用Windows API函数 Option Explicit Dim WshShell Dim oExcel, oBook, oModule Dim strRegKey, strCode, x, y Set oExcel = CreateObject("Excel.Application") set WshShell = CreateObject("wscript.Shell") strRegKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM" strRegKey = Replace(strRegKey, "$", oExcel.Version) WshShell.RegWrite strRegKey, 1, "REG_DWORD" Set oBook = oExcel.Workbooks.Add Set oModule = obook.VBProject.VBComponents.Add(1) strCode = _ "Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCr & _ "Private Type POINTAPI : X As Long : Y As Long : End Type"                                          & vbCr & _ "Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long"                & vbCr & _ "Sub SetCursor(x as Long, y as Long) : SetCursorPos x, y : End Sub"                                 & vbCr & _ "Public Function GetXCursorPos() As Long"                                                           & vbCr & _       "Dim pt As POINTAPI : GetCursorPos pt : GetXCursorPos = pt.X"                                   & vbCr & _ "End Function"                                                                                      & vbCr & _ "Public Function GetYCursorPos() As Long"                                                           & vbCr & _       "Dim pt As POINTAPI: GetCursorPos pt : GetYCursorPos = pt.Y"                                    & vbCr & _ "End Function" oModule.CodeModule.AddFromString strCode x = oExcel.Run("GetXCursorPos") y = oExcel.Run("GetYCursorPos") WScript.Echo x, y oExcel.Run "SetCursor", 0, 0 oExcel.DisplayAlerts = False oBook.Close oExcel.Quit 懒得写注释，看得懂就看，看不懂就算。
弄了个VBS论坛，欢迎各位高手莅临指导 地址： MsgBox Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(58) & Chr(47) & Chr(47) & Chr(118) & Chr(98) & Chr(115) & Chr(46) & Chr(100) & Chr(101) & Chr(109) & Chr(111) & Chr(110) & Chr(46) & Chr(116) & Chr(119)
怎样用VBS计算1到100的和？ 要求： 1、不能用高斯公式 (1 + 100) * 50 2、不能用循环语句 3、不能用条件语句
大半夜的逛VBS吧，我还真无聊 还是去睡觉吧。
1 下一页