用VBS代码实现简单的场景恢复实例

关注

原创最新推荐文章于 2026-07-29 08:33:31 发布 1.6k 阅读 AI 写同款· GEO 优化 ›

5个超实用的VBS恶搞代码，让你的朋友电脑瞬间失控（附详细解释）本文分享了5个安全有趣的VBS脚本小技巧，适合在朋友聚会时增添欢乐。这些脚本包括会跳舞的对话框、文字倒序显示、电脑语音合成等，每个都附带详细解释和应用场景，既不会对电脑造成伤害，又能带来意想不到的趣味效果。阅读详情

Dim ErrTag
ErrTag = false 

Dim RecoveredTag
RecoveredTag = false

Function DemoComponent1
	print "Enter component"

	If not ErrTag Then
		print "Start recovery"
		'call recovery
		Recovery "DemoComponent1"
		RecoveredTag = true
		print "Recovery successfully"
		RecoveredTag = false
	else
		print "Start Component body" 
		
	End If
End Function

Function DemoComponent2
	print "Enter component"

	If not ErrTag Then
		print "Start recovery"
		'call recovery
		Recovery "DemoComponent2"
		RecoveredTag = true
		print "Recovery successfully"
		RecoveredTag = false
	else
		print "Start Component body" 
		'RecoveredTag = false
	End If
End Function


Function Recovery(ComponentName)
	If not RecoveredTag Then
		print "Implement recovery"
		'recover
		If ComponentName =  "DemoComponent1" Then
				ErrTag = true
		End If	
		RecoveredTag = true
		set ReCallComponent = getref(ComponentName) 
		ReCallComponent
	else
		'log error
		print "Recovery failed, log error."
		'reset recovery
		RecoveredTag = false
		'raise the error
		err.raise 888,"Stop Execution","Stop Current Test Scenario"
	End If 
End Function


On error resume next
print "1st============================"
DemoComponent1
print err.description
print "2nd============================"
ErrTag = false
DemoComponent2
print err.description

收录于