皮皮网

1.vb问题：希望可以给代码
2.为什么fortran输出结果是源码0（程序如下图）？
3.DodoAPKToolsDodo反编译工具V10绿色版DodoAPKToolsDodo反编译工具V10绿色版功能简介
4.无法找到脚本文件 D：\program\winrar\ dodo.vbs

vb问题：希望可以给代码

       先新建一个模块，里面添加API声明

       Option Explicit

       Declare Function MoveWindow Lib "user" (ByVal hwnd As Long,源码 ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

       Declare Function SendMessage Lib "user" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

       Public Const LB_INITSTORAGE = &H1A8

       Public Const LB_ADDSTRING = &H

       Public Const WM_SETREDRAW = &HB

       Public Const WM_VSCROLL = &H

       Public Const SB_BOTTOM = 7

       Declare Function GetLogicalDrives Lib "kernel" () As Long

       Declare Function FindFirstFile Lib "kernel" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN_FIND_DATA) As Long

       Public Const INVALID_HANDLE_VALUE = -1

       Declare Function FindNextFile Lib "kernel" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN_FIND_DATA) As Long

       Declare Function FindClose Lib "kernel" (ByVal hFindFile As Long) As Long

       Type FILETIME

       dwLowDateTime As Long

       dwHighDateTime As Long

       End Type

       Public Const MaxLFNPath =

       Type WIN_FIND_DATA

       dwFileAttributes As Long

       ftCreationTime As FILETIME

       ftLastAccessTime As FILETIME

       ftLastWriteTime As FILETIME

       nFileSizeHigh As Long

       nFileSizeLow As Long

       dwReserved0 As Long

       dwReserved1 As Long

       cFileName As String * MaxLFNPath

       cShortFileName As String *

       End Type

       然后在窗体上制作2个菜单，放置一个ListBox和一个PictureBox

       完整代码如下：

       Option Explicit

       Dim PicHeight%,源码 hLB&, FileSpec$, UseFileSpec%

       Dim TotalDirs%, TotalFiles%, Running%

       Dim WFD As WIN_FIND_DATA, hItem&, hFile&

       Const vbBackslash = "\"

       Const vbAllFiles = "*.*"

       Const vbKeyDot =

       Private Sub Form_Load()

       ScaleMode = vbPixels

       PicHeight% = Picture1.Height

       hLB& = List1.hwnd

       SendMessage hLB&, LB_INITSTORAGE, &, ByVal & *

       Move (Screen.Width - Width) * 0.5, (Screen.Height - Height) * 0.5

       End Sub

       Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

       If KeyCode = vbKeyEscape And Running% Then Running% = False

       End Sub

       Private Sub Form_Resize()

       MoveWindow hLB&, 0, 0, ScaleWidth, ScaleHeight - PicHeight%, True

       End Sub

       Private Sub Form_Unload(Cancel As Integer)

       Set Form1 = Nothing

       End

       End Sub

       Private Sub mnuFindFiles_Click()

       If Running% Then: Running% = False: Exit Sub

       Dim drvbitmask&, maxpwr%, pwr%

       On Error Resume Next

       FileSpec$ = InputBox("Enter a file spec:" & vbCrLf & vbCrLf & "Searching will begin at drive A and continue " & "until no more drives are found. " & "Click Stop! at any time." & vbCrLf & "The * and ? wildcards can be used.", "Find File(s)", "*.exe")

       If Len(FileSpec$) = 0 Then Exit Sub

       MousePointer =

       Running% = True

       UseFileSpec% = True

       mnuFindFiles.Caption = "&Stop!"

       mnuFolderInfo.Enabled = False

       List1.Clear

       drvbitmask& = GetLogicalDrives()

       If drvbitmask& Then

       maxpwr% = Int(Log(drvbitmask&) / Log(2))

       For pwr% = 0 To maxpwr%

       If Running% And (2 ^ pwr% And drvbitmask&) Then _

       Call SearchDirs(Chr$(vbKeyA + pwr%) & ":\")

       Next

       End If

       Running% = False

       UseFileSpec% = False

       mnuFindFiles.Caption = "&Find File(s)..."

       mnuFolderInfo.Enabled = True

       MousePointer = 0

       Picture1.Cls

       Picture1.Print "Find File(s): " & List1.ListCount & " items found matching " & """" & FileSpec$ & """"

       Beep

       End Sub

       Private Sub mnuFolderInfo_Click()

       If Running% Then: Running% = False: Exit Sub

       Dim searchpath$

       On Error Resume Next

       searchpath$ = InputBox("输入要查找的目标路径", "文件夹信息", "C:\")

       If Len(searchpath$) < 2 Then Exit Sub

       If Mid$(searchpath$, 2, 1) <> ":" Then Exit Sub

       If Right$(searchpath$, 1) <> vbBackslash Then searchpath$ = searchpath$ & vbBackslash

       If FindClose(FindFirstFile(searchpath$ & vbAllFiles, WFD)) = False Then

       End If

       MousePointer =

       Running% = True

       mnuFolderInfo.Caption = "停止(&S)"

       mnuFindFiles.Enabled = False

       List1.Clear

       TotalDirs% = 0

       TotalFiles% = 0

       Call SearchDirs(searchpath$)

       Running% = False

       mnuFolderInfo.Caption = "文件夹信息(&F)"

       mnuFindFiles.Enabled = True

       Picture1.Cls

       MousePointer = 0

       MsgBox "Total folders: " & vbTab & TotalDirs% & vbCrLf & "Total files: " & vbTab & TotalFiles%, , "Folder Info for: " & searchpath$

       End Sub

       Private Sub SearchDirs(curpath$)

       Dim dirs%, dirbuf$(), i%

       Picture1.Cls

       Picture1.Print "Searching " & curpath$

       DoEvents

       If Not Running% Then Exit Sub

       hItem& = FindFirstFile(curpath$ & vbAllFiles, WFD)

       If hItem& <> INVALID_HANDLE_VALUE Then

       Do

       If (WFD.dwFileAttributes And vbDirectory) Then

       If Asc(WFD.cFileName) <> vbKeyDot Then

       TotalDirs% = TotalDirs% + 1

       If (dirs% Mod ) = 0 Then ReDim Preserve dirbuf$(dirs% + )

       dirs% = dirs% + 1

       dirbuf$(dirs%) = Left$(WFD.cFileName, InStr(WFD.cFileName, vbNullChar) - 1)

       End If

       ElseIf Not UseFileSpec% Then

       TotalFiles% = TotalFiles% + 1

       End If

       Loop While FindNextFile(hItem&, WFD)

       Call FindClose(hItem&)

       End If

       If UseFileSpec% Then

       SendMessage hLB&, WM_SETREDRAW, 0, 0

       Call SearchFileSpec(curpath$)

       SendMessage hLB&, WM_VSCROLL, SB_BOTTOM, 0

       SendMessage hLB&, WM_SETREDRAW, 1, 0

       End If

       For i% = 1 To dirs%: SearchDirs curpath$ & dirbuf$(i%) & vbBackslash: Next i%

       End Sub

       Private Sub SearchFileSpec(curpath$)

       hFile& = FindFirstFile(curpath$ & FileSpec$, WFD)

       If hFile& <> INVALID_HANDLE_VALUE Then

       Do

       DoEvents

       If Not Running% Then Exit Sub

       SendMessage hLB&, LB_ADDSTRING, 0, ByVal curpath$ & Left$(WFD.cFileName, InStr(WFD.cFileName, vbNullChar) - 1)

       Loop While FindNextFile(hFile&, WFD)

       Call FindClose(hFile&)

       End If

       End Sub

       程序运行时就能够通过输入文件名而进行模糊查找了

       如果还不明白，就加我QQ，源码我把我做好的源码程序发给你看

       QQ号:

为什么fortran输出结果是0（程序如下图）？

       问题出在，程序没有给数组f赋值。源码微优源码f1，源码f2，源码f3，源码f4默认都是源码real*4实数变量，并没有赋值给f。源码

       对数组的源码配置nginx源码赋值有两种方式，一种是源码f(i)=，也就是源码指定数组的下标。另一种是源码数组整体运算，比如f=，它的所有单元都赋值。

       修改了程序，第一段赋值是整体运算赋值，第二段循环内用的是逐个赋值。分别打印输出。

       希望能帮到你。

       以下是sqlite 学习源码输出结果。

DodoAPKToolsDodo反编译工具V绿色版DodoAPKToolsDodo反编译工具V绿色版功能简介

       大家好,关于Dodo APKTools(Dodo反编译工具) V1.0 绿色版，Dodo APKTools(Dodo反编译工具) V1.0 绿色版功能简介这个很多人还不知道,现在让我们一起来看看吧！

       Dodo APKTools是一款非常好用的反编译工具，它可以帮助我们把APK反编译生成程序的源代码和、XML配置、语言资源等文件，我们对和语言资源等文件修改后，还可以再把它们编译打包成APK，是反编译APK文件的必备软件。

       小编精选：APK反编译工具

软件特点

       1、可以帮助我们把APK反编译，源码炮台脚本生成程序的源代码和、XML配置、语言资源等文件。

       2、我们对和语言资源等文件修改后，可以再把它们编译打包成APK。

       3、利用编译程序从源语言编写的源程序产生目标程序的过程。

       4、本文只是为了方便命令输入，作了简化，期货sar源码各位朋友可根据自己的实际情况作出变更。

       5、反编译出来是个文件夹，打开里面的文件基本都可以用记事本打开修改。

更新日志

       1、操作简单快捷。

       2、界面简洁清晰。

       3、优化了部分程序。

       4、修复bug。

猜你喜欢

       apk反编译工具：LB-APK工具是一款安卓设备的apk反编译工具，它集成了adb，USB调试用的、 aapt，USB安装应用、取设备列表、重启设备等，且由于使用的支持库较多，所以这款反编译工具用了静态编译。

无法找到脚本文件 D：\program\winrar\ dodo.vbs

       这是因为你的电脑中毒了，但是病毒的主程序已经被杀毒软件删除了。不过中了这个病毒，你桌面上的所有快捷方式的启动方式都被改了。你可以点击桌面任何图标的右键，然后查看属性，在目标文件里，你可以看到每一个程序的.exe或者是.dll都被改成了.exe.vbs和.dll.vbs。比如qq.exe被改成了qq.exe.vbs。想了解更多这个病毒的运行方式，你可以打开程序的所在文件夹，找到一个对应的××××.exe.vbs（比如ppstream.exe.vbs）,用任何的文档编辑器打开看，内容如下：

        DIM objShell

        set objShell=Wscript.createObject("wscript.shell")

        iReturn=objShell.Run("cmd.exe /C C:\PROGRA~1\Nokia\NOKIAP~1\PCSuite.exe", 0, TRUE)

        Wscript.Sleep

        iReturn=objShell.Run("wscript.exe D:\PROGRA~1\WinRAR\dodo.vbs", 0, TRUE)

       可见，你双击桌面上的任何一个程序，它不仅会打开这个应用程序，同时也会打开dodo.vbs这个程序。而这个程序正是病毒，它已经被你的杀毒软件清除了，所以当你打开桌面上的任何程序以后，不久就会出现脚本错误。

       解决方法：删除桌面上的所有快捷方式，然后搜索所有文件名包含“.exe.vbs”的文件，使用Shift+Del删除所有的程序。最后，你重新创建桌面上的那些快捷方式即可。

       至于如何创建快捷方式，很简单，到C:\Program Files下面，依次打开这个文件夹下的子文件夹，然后右键点击每一个程序，发送到桌面快捷方式即可。 比如Adobe阅读器，你可以右键点击C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd.exe，然后选择发送到-桌面快捷方式。