How to sent underscore charactor ?

[abcomp01]

i can't do this

Send('Ton_21_')

that output Ton21??

windows 7 notebook hp

I sent to ms-dos , i tested to send notepad but still have ploblem i try to read this data and I not strip the _ from string

Ton_27

sunset49

JJKing

T_Tawan

noidum

boy__1234

boll17534

korn_001

fanta_000

bam_bam

roxy001

jajunum

in text but i tested using #MsgBox(4096, $line, "This box will time out in 10 seconds", 10) function that output have its but use Send function cannot

Edited December 15, 2011 by abcomp01

[Xenobiologist]

Where do you send your text to?

The output should be with the underscore or do you want to strip the _ from your string before sending?

[abcomp01]

Where do you send your text to?

The output should be with the underscore or do you want to strip the _ from your string before sending?

I sent to ms-dos , i tested to send notepad but still have ploblem i try to read this data and I not strip the _ from string

Ton_27

sunset49

JJKing

T_Tawan

noidum

boy__1234

boll17534

korn_001

fanta_000

bam_bam

roxy001

jajunum

in text but i tested using #MsgBox(4096, $line, "This box will time out in 10 seconds", 10) function that output have its but use Send function cannot

Edited December 15, 2011 by abcomp01

[Xenobiologist]

I don't get it.

Something like this shows me there is no problem.

$str_A = StringSplit('Ton_27,sunset49,JJKing,T_Tawan,noidum,boy__1234,boll17534,korn_001,fanta_000,bam_bam,roxy001,jajunum', ',', 2)
Opt('WinTiTleMatchMode', 2)
Run('C:WINNTsystem32cmd.exe')
Sleep(50)
If WinActivate('C:WINNTsystem32cmd.exe') Then
For $i = 0 To UBound($str_A) - 1
  Send($str_A[$i] & @CRLF)
Next
Else
ConsoleWrite('Damn' & @CRLF)
EndIf

[abcomp01]

I don't get it.

Something like this shows me there is no problem.

$str_A = StringSplit('Ton_27,sunset49,JJKing,T_Tawan,noidum,boy__1234,boll17534,korn_001,fanta_000,bam_bam,roxy001,jajunum', ',', 2)
Opt('WinTiTleMatchMode', 2)
Run('C:WINNTsystem32cmd.exe')
Sleep(50)
If WinActivate('C:WINNTsystem32cmd.exe') Then
For $i = 0 To UBound($str_A) - 1
  Send($str_A[$i] & @CRLF)
Next
Else
ConsoleWrite('Damn' & @CRLF)
EndIf

Hello, thank above but i can not canyou fixing my code that i using win7 home edit

#Run("cmd")

Sleep(1000)

$file = FileOpen("C://test.txt", 0)

; Check if file opened for reading OK

If $file = -1 Then

MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf

While 1

$line = FileReadLine($file)

If @error = -1 Then ExitLoop

#MsgBox(4096, $line, "This box will time out in 10 seconds", 10) ; woking

Send($line,1)

Sleep(500)

Send("{ENTER}")

Sleep(100)

Send("!{F4}")

Sleep(100)

WEnd

FileClose($file)

[Xenobiologist]

#include <file.au3>
Run("cmd")
Sleep(1000)
Global $lines_A
If Not _FileReadToArray("C://test.txt", $lines_A) Then
MsgBox(4096, "Error", " Error reading log to Array   error:" & @error)
Exit
EndIf
If WinActivate('C:WINNTsystem32cmd.exe') Then
For $i = 1 To UBound($lines_A) - 1
  MsgBox(4096, $lines_A[$i], "This box will time out in 10 seconds", 10)
  Send($lines_A[$i], 1)
  Sleep(500)
  Send("{ENTER}")
  Sleep(100)
  Send("!{F4}")
  Sleep(100)
Next
Else
ConsoleWrite('Damn' & @CRLF)
EndIf

[abcomp01]

now i am sloved when i will used underscore should use {ASC 0x5F} replace "_"