OpenOffice.info

Code: Alles auswählen

sub kunden_url (oEvent)
	dim kunden_link as string
	dim oMainForm as object
	oMainForm = oEvent.Source.getModel().getParent()
    kunden_link = oMainForm.getByName("txt_kunden_url").getCurrentValue()
    oSer = createUNOService("com.sun.star.system.SystemShellExecute")
    oSer.execute(kunden_link,,0)
end sub

Code: Alles auswählen

sub ftp (oEvent)
	dim ftp_link as string
	dim oMainForm as object
	oMainForm = oEvent.Source.getModel().getParent()
    ftp_link = "ftp://" + oMainForm.getByName("txt_ftp_name").getCurrentValue() + ":" + oMainForm.getByName("txt_ftp_passwort").getCurrentValue() + "@" + oMainForm.getByName("txt_ftp_url").getCurrentValue()
    oSer = createUNOService("com.sun.star.system.SystemShellExecute")
    oSer.execute(ftp_link,,0)
end sub

Code: Alles auswählen

shell ("C:\Programme\Opera\opera.exe",3,"http://download.oracle.com/docs/cd/E19535-01/819-1326/6n3mloktr/index.html#indexterm-147")

Code: Alles auswählen

Sub Main

dim ftp_link as string

ftp_link = "ftp://" + GetText("txt_ftp_name") + ":" +GetText("txt_ftp_passwort") + "@" + GetText("txt_ftp_url")

Shell ftp_link

End Sub