查看: 1236|回复: 6
哪个大神帮我把这个VB的代码转换成易语言代码，谢谢！
阅读权限20
在线时间 小时
结帖率： (0/2)
Option ExplicitPublic Declare Function SendMessage Lib &user32& Alias &SendMessageA& (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function Message Lib &user32& Alias &PostMessageA& (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function OpenProcess Lib &kernel32& (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function VirtualAllocEx Lib &kernel32.dll& (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib &kernel32.dll& (ByVal hProcess As Long, lpAddress As Any, ByRef dwSize As Long, ByVal dwFreeType As Long) As Long
Public Declare Function ReadProcessMemory Lib &kernel32.dll& (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function EnumProcessModules Lib &PSAPI.DLL& (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Public Declare Function GetModuleFileNameExA Lib &PSAPI.DLL& (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Public Declare Function CloseHandle Lib &kernel32& (ByVal hObject As Long) As Long
Public Declare Function GetIconInfo Lib &user32& (ByVal hIcon As Long, piconinfo As ICONINFO) As Long
Public Declare Function FindWindow Lib &user32& Alias &FindWindowA& (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib &user32& Alias &FindWindowExA& (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function GetWindowThreadProcessId Lib &user32.dll& (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function GetWindowsDirectory Lib &kernel32& Alias &GetWindowsDirectoryA& (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function Shell_NotifyIcon Lib &shell32.dll& Alias &Shell_NotifyIconA& (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Const NIM_ADD = &H0 '表示要往任务栏中加入图标
Public Const NIM_DELETE = &H2 '删除图标
Public Const NIM_MODIFY = &H1 '修改图标
Public Const NIF_ICON = &H2 '允许图标显示
Public Const NIF_MESSAGE = &H1 '允许图标消息转发
Public Const NIF_TIP = &H4 '允许图标显示图标提示字符串
Public Const WM_USER = &H400
Public Const WM_NOTIFYICON = WM_USER + 1& && && & ' 自定义消息，用于子类化时，取得托盘相应信息
'托盘BOTTON
Public Const TBSTATE_HIDDEN = &H8
Public Const WM_SIZE = &H5
'Public Const WM_USER As Long = &H400
Public Const TB_BUTTONCOUNT As Long = (WM_USER + 24)
Public Const TB_HIDEBUTTON As Long = (WM_USER + 4)
Public Const TB_GETBUTTON As Long = (WM_USER + 23)
Public Const TB_GETBITMAP As Long = (WM_USER + 44)
Public Const TB_DELETEBUTTON As Long = (WM_USER + 22)
Public Const TB_ADDBUTTONS As Long = (WM_USER + 20)
Public Const TB_INSERTBUTTON As Long = (WM_USER + 21)
Public Const TB_GETBUTTONTEXTA As Long = (WM_USER + 45)
Public Const TB_ISBUTTONHIDDEN As Long = (WM_USER + 12)
Public Const TB_MOVEBUTTON = (WM_USER + 82)
Public Const TB_AUTOSIZE As Long = (WM_USER + 33)
Public Const ILD_NORMAL As Long = &H0
Public Const READ_CONTROL As Long = &H20000
Public Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Public Const STANDARD_RIGHTS_READ As Long = (READ_CONTROL)
Public Const STANDARD_RIGHTS_EXECUTE As Long = (READ_CONTROL)
Public Const STANDARD_RIGHTS_ALL As Long = &H1F0000
Public Const STANDARD_RIGHTS_WRITE As Long = (READ_CONTROL)
Public Const SYNCHRONIZE As Long = &H100000
Public Const PROCESS_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF)
Public Const PROCESS_TERMINATE As Long = (&H1)
'内存读写参数
Public Const PROCESS_VM_OPERATION As Long = (&H8)
Public Const PROCESS_VM_READ As Long = (&H10)
Public Const PROCESS_VM_WRITE As Long = (&H20)
Public Const MEM_RESERVE As Long = &H2000
Public Const MEM_COMMIT As Long = &H1000
Public Const MEM_RELEASE As Long = &H8000
Public Const PAGE_READWRITE As Long = &H4
'窗口状态参数
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const PROCESS_QUERY_INFORMATION = 1024
Public Type NOTIFYICONDATA
& & cbSize& && && &&&As Long
& & hWnd& && && && & As Long
& & uid& && && && &&&As Long
& & uFlags& && && &&&As Long
& & uCallBackMessage As Long
& & hIcon& && && && &As Long
& & szTip& && && && &As String * 64
Public Type ICONINFO
& & fIcon& && && &&&As Long
& & xHotspot& && &&&As Long
& & yHotspot& && &&&As Long
& & hbmMask& && && &As Long
& & hbmColor& && &&&As Long
'Botton结构
Public Type TBBUTTON
& & iBitmap& && && &As Long
& & idCommand& && & As Long
& & fsState& && && &As Byte
& & fsStyle& && && &As Byte
& & bReserved1& && &As Byte
& & bReserved2& && &As Byte
& & dwData& && && & As Long
& & iString& && && &As Long
''没有公开的TRAYDATA结构
Public Type TRAYDATA
& & hWnd& && && && &&&As Long
& & uid& && && && && &As Long
& & uCallBackMessage As Long
& & Reserved1(0 To 1) As Long
& & hIcon& && && && & As Long
& & Reserved2(0 To 5) As Integer
& & ExePath(0 To 255) As Byte
'自定义结构
Public Type TrayItemInfo
& & hWnd& && && && & As Long
& & uid& && && && &&&As Long
& & hIcon& && && && &As Long
& & uCallBackMessage As Long
& & sTip& && && && & As String
& & sProcessPath& &&&As String
& & lIdCommand& && & As Long
& & bVisible& && && &As Boolean
& & IsSetHide& && &&&As Boolean
Public Const MAX_PATH& = 260
Public m_hTrayWnd As Long
Sub Main()
& & Form1.Show
'*************************************************************************
'**函 数 名：得到系统托盘句柄
'*************************************************************************
Public Function FindSysTray() As Long
& & Dim hTrayWnd As Long
& & hTrayWnd = FindWindow(&Shell_TrayWnd&, vbNullString)
& & If hTrayWnd && 0 Then
& && &&&hTrayWnd = FindWindowEx(hTrayWnd, 0, &TrayNotifyWnd&, vbNullString)
& && &&&hTrayWnd = FindWindowEx(hTrayWnd, 0, &SysPager&, vbNullString)
& && &&&If hTrayWnd && 0 Then
& && && && &hTrayWnd = FindWindowEx(hTrayWnd, 0, &ToolbarWindow32&, vbNullString)
& && &&&End If
& & End If
& & FindSysTray = hTrayWnd
End Function
'*************************************************************************
'**函 数 名：转换BYTE数组　及　去除最后的&\0&。
'*************************************************************************
Public Function DelEndNull(ByVal sSrc As String) As String
& & Dim lNullpos As Long
& & lNullpos = InStr(sSrc, Chr$(0))
& & If lNullpos & 0 Then
& && &&&DelEndNull = Left$(sSrc, lNullpos - 1)
& && &&&DelEndNull = sSrc
& & End If
End Function
'*************************************************************************
'**函 数 名：'去除路径中的？？问号。
'*************************************************************************
Public Function CheckPath(ByVal sPath As String) As String
& & On Error Resume Next
& & sPath = Replace$(sPath, &\??\&, &&)
& & If UCase$(Left$(sPath, 12)) = &\SYSTEMROOT\& Then sPath = GetWinDir & Mid$(sPath, 12)
& & CheckPath = sPath
End Function
'*************************************************************************
'**函 数 名'得到系统路径
'*************************************************************************
Public Function GetWinDir() As String
& & Dim sTemp As String * 256
& & Dim iCharLen As Integer
& & iCharLen = GetWindowsDirectory(sTemp, Len(sTemp))
& & GetWinDir = Left$(sTemp, iCharLen)
End Function
'------------------------modIconToPic------------------------------------------------
Option Explicit
'网络上抄摘，原作者不详。
'把ICON文件转为一般图像文件与获取EXE文件的图标
'OleCreatePictureIndirect建立一个图像对象,并返回对象句柄
'pDicDesc 图象结构
'riid& && &接口的标识符
'fown& && &是否清除图像对象,如设置为真,则图片对象将摧毁它的图片当对象被摧毁时。如果假, 则由用户负责摧毁图片对象。
'lpUnk& &&&输出变量地址接口类型
Public Declare Function OleCreatePictureIndirect Lib &oleaut32.dll& (pDicDesc As TypeIcon, riid As CLSID, ByVal fown As Long, lpUnk As Object) As Long
Public Type TypeIcon
& & cbSize& & As Long& && && && && && &'结构大小
& & picType& &As PictureTypeConstants '图像类型
& & hIcon& &&&As Long& && && && && && &'图标句柄
'CLSID类标识符的缩写
Public Type CLSID
& & id(16) As Byte '由16个成员组成的字节数组
Private Declare Function SHGetFileInfo Lib &shell32.dll& Alias &SHGetFileInfoA& (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
Private Type SHFILEINFO
& & hIcon& && && &As Long& && && && && & '文件的图标句柄
& & iIcon& && && &As Long& && && && && & '图标的系统索引号
& & dwAttributes As Long& && && && && & '文件的属性值
& & szDisplayName As String * 260& && &&&'文件的显示名
& & szTypeName& & As String * 80& && && &'文件的类型名
Public Const SHGFI_ICON = &H100& && && &'获得图标
Public Const SHGFI_LARGEICON = &H0& && &'获取文件大图标
Public Const SHGFI_SMALLICON = &H1& && &'获取小图标
'ICON 转 Picture
Public Function IconToPic(hIcon As Long) As IPictureDisp
& & Dim cls_id As CLSID
& & Dim hRes As Long
& & Dim new_icon As TypeIcon
& & Dim lpUnk As IUnknown& && && &'Com接口
& & With new_icon
& && &&&.cbSize = Len(new_icon)
& && &&&.picType = vbPicTypeIcon 'Picture 对象的图标类型
& && &&&.hIcon = hIcon
& & End With
& & With cls_id
& && &&&.id(8) = &HC0
& && &&&.id(15) = &H46
& & End With
& & hRes = OleCreatePictureIndirect(new_icon, cls_id, 1, lpUnk)
& & If hRes = 0 Then Set IconToPic = lpUnk
End Function
'获得文件ICON
Public Function GetExeIcon(FileName, Optional ByVal SmallIcon As Boolean = True) As IPictureDisp
& & Dim Index As Integer
& & Dim hIcon As Long
& & Dim item_num As Long
& & Dim icon_pic As IPictureDisp
& & Dim sh_info As SHFILEINFO
& & If SmallIcon = True Then
& && &&&SHGetFileInfo FileName, 0, sh_info, Len(sh_info), SHGFI_ICON + SHGFI_SMALLICON
& && &&&SHGetFileInfo FileName, 0, sh_info, Len(sh_info), SHGFI_ICON + SHGFI_LARGEICON
& & End If
& & hIcon = sh_info.hIcon
& & Set icon_pic = IconToPic(hIcon)
& & Set GetExeIcon = icon_pic
& & Set icon_pic = Nothing
End Function
'*************************************************************************
'**函 数 名：通过PID返回程序路径
'*************************************************************************
Public Function GetPathByPid(lPid As Long) As String
& & Dim sRet As String
& & Dim lret As Long
& & Dim lModules(1 To MAX_PATH) As Long
& & Dim sModName As String
& & Dim lCBSize As Long
& & Dim hProcess As Long
& & Dim sProcessPath As String
& & sProcessPath = &[Unknown Process]&
& & hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, False, lPid)
& & If hProcess Then
& && &&&lret = EnumProcessModules(hProcess, lModules(1), MAX_PATH, lCBSize)
& && &&&If lret && 0 Then
& && && && &sModName = Space$(MAX_PATH)
& && && && &lret = GetModuleFileNameExA(hProcess, lModules(1), sModName, 500) '从句柄的取得对应的程序路径
& && && && &sProcessPath = Left$(sModName, lret)
& && && && &sProcessPath = CheckPath(Trim$(sProcessPath)) '去除路径中\??\的内容
& && &&&End If
& & End If
& & GetAppPathByPid = sProcessPath
& & CloseHandle hProcess
End Function
'-------------------------------form1---------------------------------------
Option Explicit
'*************************************************************************
'*************************************************************************
Private Declare Function GetLastError Lib &kernel32& () As Long
Private m_aTrayinfo() As TrayItemInfo
Private iIndex& &As Integer
Public Sub Command1_Click()
& & Dim lTrayPid As Long
& & Dim lCount& &As Long
& & Dim lret& &&&As Long
& & Dim hProcess As Long
& & Dim lAddress As Long
& & Dim udtTb& & As TBBUTTON
& & Dim udtTray As TRAYDATA
& & Dim udtTifo As TrayItemInfo
& & Dim lTextAdr As Long
& & Dim asTip(0 To 1024) As Byte
& & Dim sTip& & As String
& & Dim icoInfo As ICONINFO
& & Dim i& && & As Integer
& & Set ListView1.Icons = Nothing
& & Set ListView1.SmallIcons = Nothing
& & ListView1.ListItems.Clear
& & ImageList1.ListImages.Clear
& & ImageList1.ImageHeight = 16
& & ImageList1.ImageWidth = 16
& & m_hTrayWnd = FindSysTray()
& & lret = GetWindowThreadProcessId(m_hTrayWnd, lTrayPid)
& & lCount = SendMessage(m_hTrayWnd, TB_BUTTONCOUNT, 0, ByVal 0&)
& & hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, lTrayPid)
& & lAddress = VirtualAllocEx(hProcess, ByVal 0&, ByVal 4096&, MEM_COMMIT, PAGE_READWRITE)
& & For i = 0 To lCount - 1
& && &&&lret = SendMessage(m_hTrayWnd, TB_GETBUTTON, ByVal i, ByVal lAddress&)
& && &&&lret = ReadProcessMemory(hProcess, ByVal lAddress, ByVal VarPtr(udtTb), ByVal Len(udtTb), ByVal 0&)
& && &&&lret = ReadProcessMemory(hProcess, ByVal udtTb.dwData, ByVal VarPtr(udtTray), ByVal Len(udtTray), ByVal 0&)
& && &&&udtTifo.sProcessPath = DelEndNull(udtTray.ExePath)
& && &&&If Not CBool((udtTb.fsState And TBSTATE_HIDDEN)) Then
& && && && &lret = ReadProcessMemory(hProcess, ByVal udtTb.iString, ByVal VarPtr(asTip(0)), ByVal 1024, ByVal 0&)
& && && && &sTip = DelEndNull(asTip)
& && &&&Else
& && && && &sTip = &[Hidden Icon]&
& && &&&End If
& && &&&With udtTifo
& && && && &.sTip = sTip
& && && && &.hWnd = udtTray.hWnd
& && && && &.uCallBackMessage = udtTray.uCallBackMessage
& && && && &.uid = udtTray.uid
& && && && &.bVisible = Not CBool((udtTb.fsState And TBSTATE_HIDDEN))
& && && && &.hIcon = udtTray.hIcon
& && &&&End With
& && &&&If GetIconInfo(udtTray.hIcon, icoInfo) && 0 Then
& && && && &ImageList1.ListImages.Add , , IconToPic(udtTray.hIcon)
& && && && &'Debug.Print GetLastError
& && &&&Else
& && && && &ImageList1.ListImages.Add , , GetExeIcon(udtTifo.sProcessPath)
& && &&&End If
& && &&&Debug.Print sTip, GetLastError, i
& && &&&If ImageList1.ListImages.Count = 1 Then
& && && && &Set ListView1.Icons = ImageList1
& && && && &Set ListView1.SmallIcons = ImageList1
& && &&&End If
& && &&&ReDim Preserve m_aTrayinfo(0 To i)
& && &&&m_aTrayinfo(i) = udtTifo
& && &&&ListView1.ListItems.Add i + 1, , udtTifo.sTip, 1, i + 1
& && &&&ListView1.ListItems(i + 1).SubItems(1) = udtTifo.sProcessPath
& & VirtualFreeEx hProcess, ByVal lAddress, ByVal 4096&, MEM_RELEASE
& & CloseHandle hProcess
Public Sub Command2_Click()
& & Dim s As String
& & iIndex = ListView1.SelectedItem.Index - 1
& & s = ListView1.SelectedItem.Text
& & Debug.Print s
& & If iIndex & 0 And s && &[Hidden Icon]& Then
& && &&&Call SendMessage(m_hTrayWnd, TB_MOVEBUTTON, iIndex, ByVal CLng(iIndex - 1))
& && &&&Call Command1_Click
& && &&&ListView1.SelectedItem = ListView1.ListItems(iIndex)
& && &&&ListView1.SelectedItem.EnsureVisible
& && &&&ListView1.SetFocus
& & End If
Public Sub Command3_Click()
& & Dim s As String
& & iIndex = ListView1.SelectedItem.Index - 1
& & s = ListView1.SelectedItem.Text
& & Debug.Print s
& & If iIndex & ListView1.ListItems.Count - 1 And s && &[Hidden Icon]& Then
& && &&&Call SendMessage(m_hTrayWnd, TB_MOVEBUTTON, iIndex, ByVal CLng(iIndex + 1))
& && &&&Call Command1_Click
& && &&&ListView1.SelectedItem = ListView1.ListItems(iIndex + 2)
& && &&&ListView1.SelectedItem.EnsureVisible
& && &&&ListView1.SetFocus
& & End If
Private Sub Command4_Click()
& & iIndex = ListView1.SelectedItem.Index - 1
& & Const WM_RBUTTONDOWN = &H204
& & Const WM_RBUTTONUP = &H205
& & Call PostMessage(m_aTrayinfo(iIndex).hWnd, m_aTrayinfo(iIndex).uCallBackMessage, m_aTrayinfo(iIndex).uid, WM_RBUTTONDOWN)
& & Call PostMessage(m_aTrayinfo(iIndex).hWnd, m_aTrayinfo(iIndex).uCallBackMessage, m_aTrayinfo(iIndex).uid, WM_RBUTTONUP)
Private Sub Command5_Click()
& & Dim udtIconData As NOTIFYICONDATA
& & iIndex = ListView1.SelectedItem.Index - 1
& & If m_aTrayinfo(iIndex).bVisible Then
& && &&&With udtIconData
& && && && &.cbSize = Len(udtIconData)
& && && && &.hIcon = m_aTrayinfo(iIndex).hIcon
& && && && &.hWnd = m_aTrayinfo(iIndex).hWnd
& && && && &.szTip = m_aTrayinfo(iIndex).sTip
& && && && &.uCallBackMessage = m_aTrayinfo(iIndex).uCallBackMessage
& && && && &'*注：这要hIcon、szTip、uCallBackMessage对应相对应的值。这里我默认三者都有！
& && && && &.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
& && && && &.uid = m_aTrayinfo(iIndex).uid
& && &&&End With
& && &&&If m_aTrayinfo(iIndex).IsSetHide Then
& && && && &m_aTrayinfo(iIndex).IsSetHide = False
& && && && &Call Shell_NotifyIcon(NIM_ADD, udtIconData)
& && && && &Command5.Caption = &HIDE&
& && &&&Else
& && && && &m_aTrayinfo(iIndex).IsSetHide = True
& && && && &Call Shell_NotifyIcon(NIM_DELETE, udtIconData)
& && && && &Command5.Caption = &SHOW&
& && &&&End If
& & End If
Private Sub Form_Load()
& & Call Command1_Click
Private Sub Form_Unload(Cancel As Integer)
& & Dim iIndex As Integer
& & Dim udtIconData As NOTIFYICONDATA
& & Cancel = 1
& & For iIndex = 0 To UBound(m_aTrayinfo)
& && &&&If m_aTrayinfo(iIndex).IsSetHide Then
& && && && &With udtIconData
& && && && && & .cbSize = Len(udtIconData)
& && && && && & .hIcon = m_aTrayinfo(iIndex).hIcon
& && && && && & .hWnd = m_aTrayinfo(iIndex).hWnd
& && && && && & .szTip = m_aTrayinfo(iIndex).sTip
& && && && && & .uCallBackMessage = m_aTrayinfo(iIndex).uCallBackMessage
& && && && && & '*注：这要hIcon、szTip、uCallBackMessage对应相对应的值。这里我默认三者都有！
& && && && && & .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
& && && && && & .uid = m_aTrayinfo(iIndex).uid
& && && && &End With
& && && && &Call Shell_NotifyIcon(NIM_ADD, udtIconData)
& && &&&End If
& & Cancel = 0
阅读权限120
在线时间 小时
结帖率： (27/40)
看不懂，你说下功能，直接用易语言做
阅读权限90
在线时间 小时
结帖率： (4/4)
用金山翻译啊 呵呵
阅读权限20
在线时间 小时
结帖率： (0/2)
我就是想打开YY语音时，隐藏它的托盘图标，可以理解？
阅读权限160
在线时间 小时
结帖率： (31/78)
把他写成dll命令，然后用易语言调用。
阅读权限20
在线时间 小时
结帖率： (0/2)
嗯嗯&&解决了&&谢谢！
阅读权限20
在线时间 小时
结帖率： (0/2)
麻烦版主删除本帖！&&谢谢！&&
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
防范网络诈骗，远离网络犯罪
违法和不良信息举报电话，企业QQ： ，邮箱：@
Powered by
粤公网安备 25今日论坛第 1 个签到，每日签到可得财富值+2，连续5天签到后再连续签到则每日可得财富值
+4，记得每天都来签到哦~
上一主题：
下一主题：
查看: 2605 | 回复: 15
求助在线升级后相机打不开了，懂的大哥帮我出主意搞好啊，50元话费答谢，绝不食言！
UID 6208740
交易信用 0
积分/帖子：5
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
求助在线升级后相机打不开了，懂的大哥帮我出主意搞好啊，50元话费答谢，绝不食言！
各位大哥 ：帮帮我，我自己在线刷机导致相机开不起，其他的正常，我的手机是水的 什么版本我也不清楚原机CODE是0548433 串号是480，我看了一些教程就改了CODE0534833在线刷机，刷好后发现相机开不起来（没刷之前是好的）点击就退出，我的本来是V20,升级后是V30的，我重刷了3.4遍还是一样,卸载升级软件重新下载刷机包了还是不行，格机再刷，刷完硬格软格都不行，实在是想不出什么办法了，拿去中域刷也是相机用不了，实在想不出什么办法了，其他刷机方法我不懂，只懂得在线刷，不知道是我的CODE改错了吗，还是怎么？有大哥碰到吗？帮帮我？搞好之后50话费答谢，说到做到，我电话,,,QQ
UID 508848
交易信用 0
积分/帖子：139
连续签到天数：1
全部签到天数：2
注册时间：
手机型号：
状态： 离线
貌似软件问题
用凤凰刷回2。0看看
UID 6208740
交易信用 0
积分/帖子：5
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
那是降级了。我网上查了好像刷回也是不行吧，听说降级危险要用盒子
(N95/N95-8G/WCDMA)
UID 2976886
财富值 20562
交易信用 0
荣誉卸任管理组
短讯求助，概不答复！
积分/帖子：5717
连续签到天数：1
全部签到天数：3
注册时间：
手机型号：
N95-8GB/diamond/M8/l
来自：绵阳市
状态： 离线
你从功能表里面能否打开相机？
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open(this.src);}" onmousewheel="return imgzoom(this);" alt="" />
UID 6208740
交易信用 0
积分/帖子：5
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
不行&&从功能表不行啊&&帮帮忙啊 ，在加30话费了
UID 6115491
财富值 228
交易信用 0
积分/帖子：261
连续签到天数：1
全部签到天数：2
注册时间：
手机型号：
状态： 离线
你打这个人，， 我的手机有问题也是他帮我搞的。。QQ
UID 561532
财富值 689
交易信用 0
积分/帖子：673
连续签到天数：1
全部签到天数：1
注册时间：
手机型号：
APPL Iphone5
来自：福建
状态： 离线
(N95/N95-8G/WCDMA)
UID 2976886
财富值 20562
交易信用 0
荣誉卸任管理组
短讯求助，概不答复！
积分/帖子：5717
连续签到天数：1
全部签到天数：3
注册时间：
手机型号：
N95-8GB/diamond/M8/l
来自：绵阳市
状态： 离线
我估计多半是code码不匹配，锁死了部分功能。你换CODE刷了试试~
screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized= this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {} else {window.open(this.src);}" onmousewheel="return imgzoom(this);" alt="" />
UID 1625559
财富值 143
交易信用 0
积分/帖子：129
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
不用改串号用PC套件重新刷一遍
套件上会提示重装系统~~继续~~~OVER
UID 3665867
财富值 256
交易信用 0
积分/帖子：239
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
同情LZ，我还不敢刷呢
UID 816867
交易信用 0
积分/帖子：21
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
UID 7397098
财富值 148
交易信用 0
积分/帖子：129
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
来自：海南-海口
状态： 离线
*** 作者被禁止或删除 内容自动屏蔽 ***
UID 7014678
交易信用 0
积分/帖子：47
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
状态： 离线
[s:23] 俺也不懂，希望你尽快解决难题！
UID 7397098
财富值 148
交易信用 0
积分/帖子：129
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
来自：海南-海口
状态： 离线
*** 作者被禁止或删除 内容自动屏蔽 ***
UID 7136429
财富值 2363
交易信用 1
务实，创新，山寨机...
积分/帖子：3555
连续签到天数：0
全部签到天数：0
注册时间：
手机型号：
来自：土星
状态： 离线
*** 作者被禁止或删除 内容自动屏蔽 ***
微信扫一扫关注dospy