https://www.myziyuan.com/
- 黑客帝国
- 用批处理比较好 ，写成这样:for /F %%i in (select.txt) do xcopy /D dir1\%%i dir2\pause在select.txt中一行一行的列出你要找的文件名将dir1替换成你存图片的文件夹将dir2替换成你打算存放你查找的文件的文件夹，注意\不要露写了将上面两个句子写到一个文件中，保存为1.bat将1.bat和select.txt保存在一个目录下，点击1.bat执行即可。
- 2021-03-25 11:40:01
- 111
- 展开全部background-image只能用网络url或者base64.本地图片要用image标签才行。
- 2021-02-12 14:15:12
- 互站网
- vb玫瑰花程序能开满桌面玫瑰花的小程序 源码VB!可以给我发一份吗,真好的源代码没有，有个在桌面上爬虫的小程序，我花了很长时间编写的吗，和你的类似，参考改一下，应该对你有用Dim aqDim a(4) As IntegerDim b(4) As IntegerDim n, k, c As Integer, d As IntegerPrivate Sub Command1_Click()Unload Form1End SubPrivate Sub Form_Load()App.TaskVisible = FalseApp.Title = " 123"Form1.Visible = FalseForm1.WindowState = 2Call keybd_event(44, 0, 0, 0)FEnd SubPrivate Sub Form_Resize()Picture1.Left = 0Picture1.Top = 0Picture1.Width = Form1.WidthPicture1.Height = Form1.HeightEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Circle (X, Y), 70, QBColor(1)End SubPrivate Sub Timer1_Timer()If aq = 2 ThenForm1.Visible = TruePicture1.Picture = Clipboard.GetData()End Ifaq = aq + 1End SubPrivate Sub qq()n = 0On Error Resume Nextk = Int(Rnd() * 4)Select Case kCase 0c = a(4): d = Val(Shape1(0).Height) + b(4)Case 1c = a(4): d = (-1) * Val(Shape1(0).Height) + b(4)Case 2d = b(4): c = Val(Shape1(0).Width) + a(4)Case 3d = b(4): c = (-1) * Val(Shape1(0).Width) + a(4)End SelectFor i = 0 To 3For j = 0 To 3If a(i) = c And b(j) = d Thenn = 1End IfNext jNext iIf c < 0 Or c > Form1.Width Or d < 0 Or d > Form1.Height Thenn = 1End IfIf n = 1 ThenqqElsea(4) = cb(4) = dEnd IfEnd SubPrivate Sub F()For i = 0 To 4a(i) = 500b(i) = 500Next iForm1.WindowState = 2'DrawMode = 7For i = 1 To 4'Load Shape1(i)Next iEnd SubPrivate Sub Timer2_Timer()For i = 0 To 3a(i) = a(i + 1)b(i) = b(i + 1)Next iqqFor i = 0 To 4Shape1(i).Left = a(i)Shape1(i).Top = b(i)Next iEnd Sub
- 2021-02-12 14:15:12
开通会员