RMB1000元 求VB/VC程序，最好在珠海，以便沟通

[马行空牛耕田]

程序功能要求：
1、针对不同第三方Windows程序，根据预先定制的模板对该程序的Text框/下拉框等进行自动填写(赋值)；
2、具备模板定制功能，因为本软件需要针对不同第三方Windows程序进行赋值，而不同客户程序肯定配置不同。模板可能记录的信息是： Text框的名称（位置？句柄？），该Text框需要写入的信息的类型（姓名，电话，等等）
工作量不大，但是可能有些难度（对于我来说比较难，呵呵）

程序的相关讨论可见：
http://community.csdn.net/Expert/topic/4125/4125763.xml?temp=.3597986，
只不过因为我不是Windows平台下的开发者，所以进展很慢，而公司又急着要用，既然给积分大家都没兴趣，那我就给RMB好了，有能力又有兴趣的大虾就直接联系我吧。当然最好是珠海的朋友，这样我们可以当面沟通。

工作的方式：
兼职，周期一个月（文档就不必了，但是详细的注释、良好的编码规范是需要的）

我的联系方式：
Mail ：[e-mail]
Phone : [phone] （章生）

[僵哥]

感觉有点儿异想天开，这样的软件才1000元？是来哄学生的吧？

[greentest]

偶三天没吃饭了，是没米了，可以考虑考虑

[马行空牛耕田]

To unsigned
我自己也不太懂这方面的开发,的确有点异想天开,呵呵,但是无论如何,只要你能开发出来,我再加1000也无所谓.

[zhanshua]

1000块？？？？
浪费时间。

[马行空牛耕田]

非常感谢“ hopeybx() ”，你的支持让我很感动。 我会认真钻研你的代码的。不过我还是决定找人来作了，因为我还有其他的项目要兼着做。唉，没办法啊！

[chenyu5188]

UP

[马行空牛耕田]

楼上有意接洽这个软件的朋友们，请稍微等候，我需要一个一个的来谈，如果选定了人选，我就会在这个帖子发布消息，感谢各位关注！

[还想懒够]

1000元/月？珠海？饿，不去

[Feather2005]

RMB:1000,浪费时间，你认为中国的程序员就那么不值钱吗？按你的要求差不多是AI产品了。
$:1000，可以考虑。

[verious]

呵呵
感觉有点瞧不起写程序的

现在正忙着写公司的软件，路过看看

[hopeybx]

你要捕捉的第三方程序有什么特征，就是比如什么标题或别的什么？？

[wfront]

现在在珠海,有点兴趣


================================================================
此帖通过csdn小助手回复。
这个东东还不错，感谢作者Qqwwee_Com
================================================================

[xinliangyu]

不简单的东西。不敢接

[cxbkkk]

我明白楼主得意思了，就是说按照需要点不同得模块来执行不同得要取得硬件信息，如果你要自动识别就是AI产品了吧。

不同模块的话也就是把几个程序合到一起。

[dingmin]

～｀｀～～～～重赏之下，竟无勇夫？～～～～～～～
1000RMB??哄人啊？？
象这样的软件，我起码能卖到２５００ＲＭＢ以上～～
呵呵　　你要能把薪金出到这个价位，一个月～
保证没问题，可以签合同．做不完我赔你～～

[zftow110]

1000块还要注释、良好的编码规范!体力活也不是这样做的吧！

[马行空牛耕田]

to jjkk168 ：
呵呵，是兼职一个月啦，不一定非要在珠海，当然在珠海的就更好，方便沟通。
这个软件我把它定位为工作量不大，但是需要相当技术功底和技巧的，所以开价也不是很高，但也是可以谈的，并非就一定是1000

[马行空牛耕田]

我绝对不是侮辱各位大虾，我自己也是个程序员，只不过是搞JAVA的，加上自己笨，想做这样的一个东东，但是做不出来，只好到此招标。嫌钱少的，我可以加，一切好商量对吧，请不要把我一棍子打死。我是真心求人、求教，不想引起无谓的争执。

至于说想要注释和编码规范，这其实也是想将来要维护，不能一辈子靠别人吧，希望各位大虾能理解。

[hopeybx]

我是个vb菜鸟，这是我自己东拼西凑写的一个自动安装flashget 1.60及补丁的程序，这个只是原代码，要运行还要在同一个目录下有flashget 1.60安装程序和补丁



需要一个Form1(含4个timer）和module1

代码
form:
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Const GW_CHILD = 5
Const GW_HWNDNEXT = 2
Const GW_OWNER = 4
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Sub Form_Load()
X = Shell("flashget.exe", 1)
Form1.Visible = False
End Sub

Private Sub Timer1_Timer()
Dim mWnd As Long
mWnd = FindWindow("GLBSWizard", vbNullString)
If mWnd = 0 Then Exit Sub
EnumChildWindows mWnd, AddressOf EnumWindowsProc, ByVal 0&
End Sub

Private Sub Timer2_Timer()
Dim mWnd As Long
mWnd = FindWindow("SDC", vbNullString)
aa = mWnd
If mWnd = 0 Then Exit Sub
EnumChildWindows mWnd, AddressOf EnumWindowsProc2, ByVal 0&
End Sub

Private Sub Timer3_Timer()
Dim mWnd As Long
mWnd = FindWindow("#32770", "网际快车(FlashGet) v1.60a")
If mWnd = 0 Then Exit Sub
EnumChildWindows mWnd, AddressOf EnumWindowsProc3, ByVal 0&
If cc = True Then
Unload Form1
End If
End Sub



module1:


Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101
Const VK_RETURN = &HD
Const VK_F = &H70
Const VK_SPACE = &H20
Const VK_CANCEL = &H3
Public aa As Long
Public bb As Boolean
Public cc As Boolean
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
GetWindowText hwnd, sSave, Ret + 1
If sSave = "&Finish >" Then
Wait (1)
PostMessage hwnd, WM_KEYDOWN, VK_RETURN, 0
Form1.Timer1.Enabled = False
Wait (1)
CopyFile "PATCH.exe", "c:\Program Files\FlashGet\PATCH.exe", 0
Wait (1)

SetCurrentDirectory "c:\Program Files\FlashGet\"
X = Shell("c:\Program Files\FlashGet\PATCH.exe")
Wait (1)
Form1.Timer2.Enabled = True
End If
If sSave = "安装3721上网助手" Then
Wait (1)
PostMessage hwnd, WM_KEYDOWN, VK_SPACE, 0&
PostMessage hwnd, WM_KEYUP, VK_SPACE, 0&
End If
If sSave = "I &Agree" Then
Wait (1)
PostMessage hwnd, WM_KEYDOWN, VK_RETURN, 0
End If
If sSave = "&Next >" Then
Wait (1)
PostMessage hwnd, WM_KEYDOWN, VK_RETURN, 0
End If

EnumWindowsProc = True
End Function

Public Function EnumWindowsProc2(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
GetWindowText hwnd, sSave, Ret + 1
If sSave = "创建备份" Then
PostMessage hwnd, WM_KEYDOWN, VK_SPACE, 0&
PostMessage hwnd, WM_KEYUP, VK_SPACE, 0&
bb = True
End If
If bb = True Then
If sSave = "应用补丁" Then
PostMessage hwnd, WM_LBUTTONDOWN, 0, 0
PostMessage hwnd, WM_LBUTTONUP, 0, 0
Form1.Timer2.Enabled = False
Form1.Timer3.Enabled = True
End If
End If

EnumWindowsProc2 = True
End Function

Public Function EnumWindowsProc3(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
GetWindowText hwnd, sSave, Ret + 1
If sSave = "确定" Then
Wait (1)
PostMessage hwnd, WM_KEYDOWN, VK_RETURN, 0&
Wait (1)
SendKeys "%{f4}", 1
cc = True
DeleteFile "c:\Program Files\FlashGet\PATCH.exe"
End If

EnumWindowsProc3 = True
End Function
Public Function Wait(WaitTime)
Dim StartTime As Double
StartTime = Timer
Do While Timer < StartTime + WaitTime
If Timer > 86395 Or Timer = 0 Then Exit Do
DoEvents
Loop
End Function

希望对你有所帮助。
vb菜鸟

[马行空牛耕田]

多谢各位关注，已经找到兼职高手。 结贴！