[Aportes indexados] Mensaje al host

Estado
Cerrado para nuevas respuestas.

Shed

128bpm
Ex-Staff
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">UCase</span>$<span style="color: #66cc66;">(</span><span style="color: #b1b100;">Left</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #cc66cc;">9</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span> = <span style="color: #ffffff;">"/MSJHOST "</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1"><span style="color: #808080;">'If UCase$(Name) = "Tunombre" Then</span></li><li style="" class="li2"><span style="color: #b1b100;">Dim</span> NumLinesAPP <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"><span style="color: #b1b100;">Dim</span> NUMEROMAS1 <span style="color: #b1b100;">As</span> <span style="color: #b1b100;">Integer</span></li><li style="" class="li1"> </li><li style="" class="li2">rdata = <span style="color: #b1b100;">Right</span>$<span style="color: #66cc66;">(</span>rdata, <span style="color: #b1b100;">Len</span><span style="color: #66cc66;">(</span>rdata<span style="color: #66cc66;">)</span> - <span style="color: #cc66cc;">9</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    </li><li style="" class="li1">    <span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> FileExist<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span>, <span style="color: #ffffff;">"INFO"</span>, <span style="color: #ffffff;">"NumLinias"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1">    </li><li style="" class="li2">NumLinesAPP = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span>, <span style="color: #ffffff;">"INFO"</span>, <span style="color: #ffffff;">"NumLinias"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">NUMEROMAS1 = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>NumLinesAPP<span style="color: #66cc66;">)</span> + <span style="color: #cc66cc;">1</span></li><li style="" class="li1">    <span style="color: #b1b100;">If</span> rdata = <span style="color: #ffffff;">""</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"||Utilice /MSJHOST MENSAJE"</span> & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> SendData<span style="color: #66cc66;">(</span>ToIndex, UserIndex, <span style="color: #cc66cc;">0</span>, <span style="color: #ffffff;">"NUMLINES="</span> & NumLinesAPP & FONTTYPE_INFO<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Else</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span>, <span style="color: #ffffff;">"INFO"</span>, NUMEROMAS1 & <span style="color: #ffffff;">"Dice:"</span>, rdata<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span>, <span style="color: #ffffff;">"INFO"</span>, <span style="color: #ffffff;">"NumLinias"</span>, NUMEROMAS1<span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2">    <span style="color: #b1b100;">If</span> rdata = <span style="color: #ffffff;">"MSN URGENTE"</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"ABRI MSN YA.dat"</span>, <span style="color: #ffffff;">"URGENTE"</span>, NUMEROMAS1 & <span style="color: #ffffff;">"Dice:"</span>, <span style="color: #ffffff;">"ABRI MSN"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li2"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li></ol></div>[/vb]

Lo hice para dejarle un mensaje :p no hay mucho q decir XD
 
A

Anonymous

Invitado
Esta parte:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> FileExist<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li1">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span>, <span style="color: #ffffff;">"INFO"</span>, <span style="color: #ffffff;">"NumLinias"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li2">    <span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span></li><li style="" class="li1">    </li><li style="" class="li1">NumLinesAPP = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span>, <span style="color: #ffffff;">"INFO"</span>, <span style="color: #ffffff;">"NumLinias"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li></ol></div>[/vb]

La podes hacer así:
[vb]<div class="vb" id="{CB}" style="font-family: monospace;"><ol><li style="" class="li1"> </li><li style="" class="li1"><span style="color: #b1b100;">If</span> <span style="color: #b1b100;">Not</span> FileExist<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span><span style="color: #66cc66;">)</span> <span style="color: #b1b100;">Then</span></li><li style="" class="li2">    <span style="color: #b1b100;">Call</span> WriteVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span>, <span style="color: #ffffff;">"INFO"</span>, <span style="color: #ffffff;">"NumLinias"</span>, <span style="color: #ffffff;">"0"</span><span style="color: #66cc66;">)</span></li><li style="" class="li1">    NumLinesAPP=<span style="color: #cc66cc;">0</span></li><li style="" class="li1"><span style="color: #b1b100;">Else</span></li><li style="" class="li2">    NumLinesAPP = <span style="color: #b1b100;">val</span><span style="color: #66cc66;">(</span>GetVar<span style="color: #66cc66;">(</span>App.<span style="color: #66cc66;">Path</span> & <span style="color: #ffffff;">"Mensaje.dat"</span>, <span style="color: #ffffff;">"INFO"</span>, <span style="color: #ffffff;">"NumLinias"</span><span style="color: #66cc66;">)</span><span style="color: #66cc66;">)</span></li><li style="" class="li1"><span style="color: #b1b100;">End</span> <span style="color: #b1b100;">If</span>    </li><li style="" class="li1"> </li></ol></div>[/vb]

Te ahorras leer lo que acabas de escribir, cuando el archivo no existía...
Bueno, no se, era para aportar algo xD.
 
A

Anonymous

Invitado
Hola che puedo enviar un msj a otra pc NO EN RED se puede?? :D
 
Estado
Cerrado para nuevas respuestas.
Arriba