Muchas gracias. Me a sido de mucha ayuda.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub TabPage2_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabPage2.HandleCreated
If File.Exists("c:\fichero.txt") Then
MsgBox("Existe", MsgBoxStyle.Information)
Else
'Aqui va el codigo que llama al tab1 nuevamente. pero como lo llamo?
End If
End Sub
function fwrite_x(folder,filename,data,mode){ //fwrite_x v1.0 byScriptman
//modes: 0:si no existe, regresa false ;1: sobreescribe; 2:append.
filename=folder+filename;
if(fso.FileExists(filename) == false&&mode==0) return false;
if(fso.FileExists(filename) != false&&mode==2) {
tf = fso.OpenTextFile(filename,1);
var dataold = tf.readall(); tf.close(); }
else dataold="";
var tf = fso.CreateTextFile(filename,2);
tf.write(dataold+data);
tf.close();
return true;
}
echo "<a class=\"toplinkbox\" href=\"javascript:fwrite_x("c:\","archivo.txt","Prueba de escritura",2);"><b>$customtitle</b></a>";
Public Class Form1
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
On Error GoTo puente
Dim arg()
arg = Environment.GetCommandLineArgs()
If arg(1) = "1983" Then
MsgBox(arg(1))
Else
puente:
Me.Close()
End If
End Sub
End Class
7 <?php
8 include("clase_plantilla.php");
9 $iparray[]=array();
10 $nu_de_ele_iparray=count($iparray);
11 $iparray[]=$_GET['ip'];
12 $Contenido[]=array();
*13 $Contenido[]=new Plantilla("enviar_mensaje");
14 $Contenido[$nu_de_ele_iparray]->asigna_variables(array(
15 "variable" => "Hola Mundo"
16 ));
17 $ContenidoString = $Contenido[$nu_de_ele_iparray]->muestra();
18 echo $ContenidoString;
19 ?>