添加vbs

vbs/main.vbs

@@ -0,0 +1,24 @@
+msgbox "做我女朋友好吗",vbQuestion,"在吗"
+msgbox ("房产写你名字")
+msgbox ("保大")
+msgbox ("我妈会游泳")
+
+Dim j
+Dim flag
+j=3
+flag=0
+Do while j>0
+	Select Case msgbox("做我女朋友好吗",vbInformation+vbYesNo,"请郑重的回答我")
+		Case vbNo 
+			msgbox("再给你一次机会")
+			j=j-1
+		Case vbYes
+			msgbox("我就知道你会同意的，爱你么么哒，哈哈哈哈")
+			j=0
+			flag=1
+	end Select
+Loop
+If flag=0 then
+	msgbox("不喜欢你了")
+End If
+