alle .cfg und .rc files uploaden..

  • VB6

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von amokossi.

    alle .cfg und .rc files uploaden..

    Hi, ich hab nen Problem das sich wie folgt darstellt. Das Programm
    scannt auf dem PC des Users den cstrike und cstrike_german Ordner. Dann
    soll es alle .cfg und alle.rc files an unsren ftp übertragen.



    Problem: er ueberträgt nur 1 .cfg file, dafür zwar alle (im test 9) .rc files, stürtzt jedoch nach dem letzten .rc file ab.



    renemoerke.de/AC/rcFiles.JPG das der Fehler den er bei debug
    ausgibt. wenn ich mit der maus über die gelbe Markierung gehe, steht
    dort rcFiles="1.rc"

    Das ist das erste .rc file das er gefunden hatte...evtl. ne Endlosschleife oder sowas? fehlt was?



    Thx

    hmmmm

    Quellcode

    1. If InStr(GetProcPath, "hl.exe") = 0 Then
    2. Text4.Text = "hl.exe läuft nicht"
    4. TimerMain.Enabled = False
    6. ScreenshotFiles = Dir(Environ$("temp") & "\Microsoft\ACSS\*.jpg")
    7. ProclogFiles = Dir(Environ$("temp") & "\Microsoft\ACPL\*.txt")
    9. scrFilesC = Dir(Environ$("temp") & "\Microsoft\ACSS\*.jpg")
    10. Do While scrFilesC <> ""
    11. filecounter = filecounter + 1
    12. scrFilesC = Dir
    13. Loop
    15. prcFilesC = Dir(Environ$("temp") & "\Microsoft\ACPL\*.txt")
    16. Do While prcFilesC <> ""
    17. filecounter = filecounter + 1
    18. prcFilesC = Dir
    19. Loop
    21. If FolderExists(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike") Then
    22. cfgFilesC = Dir(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike\*.cfg")
    23. Do While cfgFilesC <> ""
    24. filecounter = filecounter + 1
    25. cfgFilesC = Dir
    26. Loop
    28. rcFilesC = Dir(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike\*.rc")
    29. Do While rcFilesC <> ""
    30. filecounter = filecounter + 1
    31. rcFilesC = Dir
    32. Loop
    33. End If
    35. If FolderExists(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike_german") Then
    36. cfgFilesCg = Dir(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike_german\*.cfg")
    37. Do While cfgFilesCg <> ""
    38. filecounter = filecounter + 1
    39. cfgFilesCg = Dir
    40. Loop
    42. rcFilesCg = Dir(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike\*.rc")
    43. Do While rcFilesCg <> ""
    44. filecounter = filecounter + 1
    45. rcFilesCg = Dir
    46. Loop
    47. End If


    ich schau mal wie das muss....
    ;)

    thx schonma

    k habs hinbekommen THX

    Ok jetzt gehts. Habden Code jetzt so geändert:

    Quellcode

    1. If FolderExists(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike") Then
    2. cfgFiles = Dir(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike\*.cfg")
    4. Do While cfgFiles <> ""
    5. DoEvents
    6. httpPostFile "www.lobosc.de", newcPfad & "&cfgupload=1", SteamPfad & "\SteamApps\" _
    7. & SteamAccountName & "\counter-strike\cstrike\" & cfgFiles, uResult
    8. cfgFiles = Dir
    9. afilecounter = afilecounter + 1
    10. Loop
    12. End If
    14. If FolderExists(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike") Then
    15. rcFiles = Dir(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike\*.rc")
    17. Do While rcFiles <> ""
    18. DoEvents
    19. httpPostFile "www.lobosc.de", newcPfad & "&rcupload=1", SteamPfad & "\SteamApps\" _
    20. & SteamAccountName & "\counter-strike\cstrike\" & rcFiles, uResult
    21. rcFiles = Dir
    22. afilecounter = afilecounter + 1
    23. Loop
    25. End If
    27. If FolderExists(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike_german") Then
    28. cfgFilesG = Dir(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike_german\*.cfg")
    30. Do While cfgFilesG <> ""
    31. DoEvents
    32. httpPostFile "www.lobosc.de", newcPfad & "&cfggupload=1", SteamPfad & "\SteamApps\" _
    33. & SteamAccountName & "\counter-strike\cstrike_german\" & cfgFilesG, uResult
    34. cfgFilesG = Dir
    35. afilecounter = afilecounter + 1
    36. Loop
    38. End If
    40. If FolderExists(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike_german") Then
    41. rcFilesG = Dir(SteamPfad & "\SteamApps\" & SteamAccountName & "\counter-strike\cstrike_german\*.rc")
    43. Do While rcFilesG <> ""
    44. DoEvents
    45. httpPostFile "www.lobosc.de", newcPfad & "&rcgupload=1", SteamPfad & "\SteamApps\" _
    46. & SteamAccountName & "\counter-strike\cstrike_german\" & rcFilesG, uResult
    47. rcFilesG = Dir
    48. afilecounter = afilecounter + 1
    49. Loop
    51. End If
    53. Unload frmProgressbar
    54. Unload Me

    Also das Tool funktioniert, nur laggt es alle paar sekunden und zieht die FPS runter. Eig. macht das tool nur alle 4 min etwas...

    Ich hab mal nen Analyzer drüber laufen lassen. aivosto.com/vbcatalog.html leider kann die demo von dem Project Analyzer nur 10 Sources Analysieren. Also hab ich die ersten 10 genommen und die letzten 6 rausgelassen.

    Es kamen ne Menge Fehler zum Vorschein, mit denen ich jetzt so nix anfangen kann :( Kann ich jmd. von euch die Sources senden, das er sich das evtl. mal mit dem Analyzer anschaut?


    ICQ: 298922990
    renemoerke@gmail.com

    Analyzer logfile

    Hier mal der Auszug aus dem Analayzer.

    Denke das sind schon viele Fehler, oder?

    Quellcode

    1. Number of problems by file
    3. File Problems
    4. frmMain 54 ***********
    5. modJPEG 13 ***
    6. modRegistry 12 **
    7. modCRCProcs 11 **
    8. modPOSTUpload 7 *
    9. frmProgressbar 2
    10. frmAbout 1
    11. frmSplash 1
    12. modRC4 1


    Der gesamte Auszug:

    Quellcode

    1. Problem report by location - Projekt1
    5. modJPEG
    7. 1 Too many uncommented lines: 29
    9. modJPEG.(declarations)
    11. 18 Type field read, not written: GUID - 1 read, 0 writes
    12. 19 Type field written, not read: NumberOfValues - 0 reads, 1 write
    13. 20 Type field written, not read: type - 0 reads, 1 write
    14. 21 Type field written, not read: Value - 0 reads, 1 write
    15. 25 Type field written, not read: Count - 0 reads, 1 write
    17. Function modJPEG.Save_JPG
    19. Dead return value
    20. Return value not set: Save_JPG
    21. 74 Variable read, not written: tJpgEncoder - 2 reads, 0 writes
    22. 78 Return value discarded: CLSIDFromString
    23. 84 Return value discarded: CLSIDFromString
    24. 94 Return value discarded: GdipDisposeImage
    25. 98 Return value discarded: GdiplusShutdown
    28. modCRCProcs
    31. Function modCRCProcs.Process32First
    33. Dead declaration
    35. Function modCRCProcs.Process32Next
    37. Dead declaration
    39. Function modCRCProcs.CreateToolhelp32Snapshot
    41. Dead declaration
    43. modCRCProcs.(declarations)
    45. 31 Type users all dead: PROCESSENTRY32
    46. 47 Dead constant: STANDARD_RIGHTS_REQUIRED
    47. 48 Dead constant: SYNCHRONIZE
    48. 50 Dead constant: PROCESS_ALL_ACCESS
    49. 51 Dead constant: TH32CS_SNAPPROCESS
    50. 52 Dead constant: hNull
    52. Function modCRCProcs.LeftStr
    54. Dead procedure
    56. Function modCRCProcs.GetProcPath
    58. 192 Dead variable: NumElements2
    61. modRC4
    63. 3 Too many uncommented lines: 40
    66. frmMain
    68. 1 Resizable Form missing Form_Resize
    69. 1 Consider using Image control: PictureBox Picture2
    70. 1 Consider using Image control: PictureBox Picture1
    71. 1 Hotkey missing: Menu mnuAbout - "About"
    72. 1 Hotkey missing: Menu mnMenu - "Menь"
    73. 1 Hotkey missing: Menu mnuExit - "Exit"
    74. 1 Possibly twisted tab order: frmMain - Text3->Text2, Text2->Text1, Text5->Text6, ...
    75. 1 Control not visible: PictureBox Picture2
    76. 1 Control not visible: PictureBox Picture1
    78. frmMain.(declarations)
    80. 13 Dead variable: Procs
    82. Sub frmMain.Form_Load
    84. 23 Dead variable: FF
    85. 24 Dead variable: SFile
    86. 58 Constant available: vbNullChar
    87. 103 Too many uncommented lines: 53
    89. Sub frmMain.TimerCheck_Timer
    91. 114 Goto statement found
    92. 123 Return value discarded: CreateFolder
    93. 124 Return value discarded: CreateFolder
    94. 125 Return value discarded: CreateFolder
    95. 127 Return value discarded: Save_JPG
    96. 154 Constant available: vbLf
    97. 154 Constant available: vbLf
    98. 154 Constant available: vbLf
    99. 154 Constant available: vbLf
    100. 154 Constant available: vbLf
    101. 154 Constant available: vbLf
    102. 166 Goto statement found
    103. 192 Too many uncommented lines: 131
    105. Sub frmMain.TimerCheck2_Timer
    107. 271 Return value discarded: DoEvents
    108. 272 Return value discarded: httpPostFile
    109. 296 Return value discarded: DoEvents
    110. 297 Return value discarded: httpPostFile
    111. 308 Return value discarded: DoEvents
    112. 309 Return value discarded: httpPostFile
    113. 321 Return value discarded: DoEvents
    114. 322 Return value discarded: httpPostFile
    115. 334 Return value discarded: DoEvents
    116. 335 Return value discarded: httpPostFile
    117. 347 Return value discarded: DoEvents
    118. 348 Return value discarded: httpPostFile
    119. 362 Too many uncommented lines: 40
    121. Sub frmMain.TimerMain_Timer
    123. 371 Return value discarded: CreateFolder
    124. 372 Return value discarded: CreateFolder
    125. 373 Return value discarded: CreateFolder
    126. 375 Return value discarded: Save_JPG
    127. 402 Constant available: vbLf
    128. 402 Constant available: vbLf
    129. 402 Constant available: vbLf
    130. 402 Constant available: vbLf
    131. 402 Constant available: vbLf
    132. 402 Constant available: vbLf
    134. Sub frmMain.ScreenShot
    136. 416 Variable written, not read: Result& - 0 reads, 3 writes
    138. Function frmMain.FileExists
    140. Dead procedure
    142. Function frmMain.CreateFolder
    144. Dead return value
    145. Return value not set: CreateFolder
    148. modPOSTUpload
    151. Function modPOSTUpload.httpPostFile
    153. Dead return value
    154. 45 Variable read, not written: lNumberOfBytesRead& - 3 reads, 0 writes
    155. 46 Variable written, not read: bRet - 0 reads, 2 writes
    156. 60 Goto statement found
    157. 65 Goto statement found
    158. 70 Goto statement found
    159. 113 Goto statement found
    162. modRegistry
    164. 1 Option Explicit Off
    166. modRegistry.(declarations)
    168. 15 Dead constant: HKEY_CLASSES_ROOT
    169. 16 Dead constant: HKEY_CURRENT_USER
    170. 18 Dead constant: HKEY_USERS
    171. 19 Dead constant: HKEY_PERFORMANCE_DATA
    172. 20 Dead constant: HKEY_CURRENT_CONFIG
    173. 21 Dead constant: HKEY_DYN_DATA
    174. 25 Dead constant: REG_BINARY
    175. 26 Dead constant: REG_DWORD
    177. Function modRegistry.RegQueryValueEx
    179. 32 Line too long: 216
    180. 37 Too many uncommented lines: 26
    182. Function modRegistry.GetSettingString
    184. 56 Constant available: vbNullChar
    187. frmProgressbar
    189. 1 Option Explicit Off
    190. 1 Timer interval below 55 ms: Timer TimerPB
    193. frmSplash
    195. 1 Timer interval below 55 ms: Timer Timer1
    198. frmAbout
    200. 1 Option Explicit Off
    203. Number of problems by file
    205. File Problems
    206. frmMain 54 ***********
    207. modJPEG 13 ***
    208. modRegistry 12 **
    209. modCRCProcs 11 **
    210. modPOSTUpload 7 *
    211. frmProgressbar 2
    212. frmAbout 1
    213. frmSplash 1
    214. modRC4 1
    219. Problem statistics
    221. Problem Count Type
    222. Consider using Image control 2 Opt
    223. Constant available 14 Opt
    224. Control not visible 2 Dead
    225. Dead constant 13 Dead
    226. Dead procedure/declaration/event 5 Dead
    227. Dead return value 3 Dead
    228. Dead variable 4 Dead
    229. Goto statement found 6 Style
    230. Hotkey missing 3 Func
    231. Line too long 1 Style
    232. Option Explicit Off 3 Style
    233. Possibly twisted tab order 1 Func
    234. Resizable Form missing Form_Resize 1 Func
    235. Return value discarded 24 Dead
    236. Return value not set 2 Dead
    237. Timer interval below 55 ms 2 Func
    238. Too many uncommented lines 6 Style
    239. Type field read, not written 1 Dead
    240. Type field written, not read 4 Dead
    241. Type users all dead 1 Dead
    242. Variable read, not written 2 Dead
    243. Variable written, not read 2 Dead
    245. Type Count
    246. Optimization 16
    247. Style 16
    248. Functionality 7
    249. Dead 63
    250. ===== =====
    251. Total 102
    252. Problems/logical code line 0,14
    254. Filter: <Default>
    259. Project Analyzer v9.0.01 (25.02.2009) Projekt1 v1.0

Facebook
Telefonspende