Enviar sms e saf-t pt

[Elek]

alguém me pode dizer como posso fazer um software ligar s por bluetooth ao tlm ou por cabo e enviar sms do tlm utilizando os dados da base de dados?

e ja agora alguem me sabe dizer como posso fazer o meu programa exportar as cenas pa saf-t?

[pedrotuga]

saf-t não faço ideia do que seja.

Quando a interagires com o telemovel as notícias não são as melhores.

Os telemóveis só são compatíveis uns com os outros no que toca a tecnologia de rede. De resto são todos diferentes uns dos outros. Mesmo os que têm suporte para java têm APIs diferentes.

Por outras palavras, não é possivel desenvolver um software que funcione para muitos telefones.

No máximo podes desenvolver um software e mudá-lo no que for preciso para funcionar noutros telemoveis.

[slack_guy]

e ja agora alguem me sabe dizer como posso fazer o meu programa exportar as cenas pa saf-t?

- Qual é o teu programa?

- Pesquisa no fórum por 'saft-pt'

[Elek]

o meu programa é o k estou a desenvolver para a restauração, para já...

Em relação à questão dos telemóveis, cm é k funcionam entao as aplicações da vodafone e ixu k faxem sms por tlm? akilo envia uma sms po teu tlm a dxr k ta a ser utilizado no teu pc, seja ele kual for e uxas la o tlm... a minha ideia era criar uma área no meu software k enviaxe sms atraves dexe software, ou mxm criar um = pa n tar a usar o da vodafone...

[Elek]

Código

 

Private Sub CreateSettingsXml()
        Dim Encryption As New Encryption_and_other_classes
        Try
            Dim writer As New XmlTextWriter(filepath & File, Nothing)
            writer.WriteStartDocument()
            writer.Formatting = Formatting.Indented
            writer.WriteComment("This file was generated by a program")
            writer.WriteComment("developed by De4thPr00f")
            writer.WriteComment("Contact: joao.cyber@gmail.com")
            writer.WriteStartElement("Request")
            writer.WriteElementString("Length", GameLengthBox.SelectedIndex)
            writer.WriteElementString("Team1Name", Team1Name.Text)
            writer.WriteElementString("Team1Local", Team1CountrieBox.SelectedIndex)
            writer.WriteElementString("Team2Name", Team2Name.Text)
            writer.WriteElementString("Team2Local", Team2CountrieBox.SelectedIndex)
            writer.WriteElementString("GameType", GameTypeCombobox.SelectedIndex)
            If RadioButton1.Checked = True Then
                writer.WriteElementString("GameMode", "1.6")
            ElseIf RadioButton2.Checked = True Then
                writer.WriteElementString("GameMode", "DoD")
            ElseIf RadioButton3.Checked = True Then
                writer.WriteElementString("GameMode", "NS")
            ElseIf RadioButton4.Checked = True Then
                writer.WriteElementString("GameMode", "CZ")
            Else
                writer.WriteElementString("GameMode", "Source")
            End If
            writer.WriteElementString("IpPort", tbIPandPort.Text)
            writer.WriteElementString("ServerPassword", Encryption_and_other_classes.TripleDES(ServerPW.Text, "serverthing", True))
            writer.WriteElementString("Delay", DelayBox.SelectedIndex)
            writer.WriteElementString("ServerLocation", ServerLocation.SelectedIndex)
            writer.WriteEndElement()
            writer.Close()
        Catch ex As Exception

            MsgBox(ex.Message)

        End Try
End Sub

Cria uma coisa deste género

Código:

<!--This file was generated by a program-->

<!--developed by De4thPr00f-->

<!--Contact: joao.cyber@gmail.com-->

<Request>

  <Length>1</Length>

  <Team1Name>SAM</Team1Name>

  <Team1Local>48</Team1Local>

  <Team2Name>NeR</Team2Name>

  <Team2Local>48</Team2Local>

  <GameType>33</GameType>

  <GameMode>1.6</GameMode>

  <IpPort>80.172.224.142:30000</IpPort>

  <ServerPassword>I+ojzMzVe7Q=</ServerPassword>

  <Delay>0</Delay>

  <ServerLocation>48</ServerLocation>

</Request>

O código para ler isso

Código

 

 Private Sub LoadMySettings()
        If Settings.SaveUserInfo.Checked = True Then
            If System.IO.File.Exists(filepath & file) Then
                Dim allText As String
                Try
                    allText = My.Computer.FileSystem.ReadAllText(filepath & file)
                    If InStr(allText, "<!--developed by De4thPr00f-->") And InStr(allText, "Request") Then
                        Dim Objreader As New XmlTextReader(filepath & file)
                        While Objreader.Read()
                            Objreader.MoveToContent()
                            If Objreader.LocalName = "Length" Then
                                GameLengthBox.SelectedIndex = Convert.ToInt32(Objreader.ReadElementString("Length"))
                            End If
                            If Settings.TeamInfo.SelectedIndex = 0 Then
                                If Objreader.LocalName = "Team1Name" Then
                                    Team1Name.Text = Objreader.ReadElementString("Team1Name")
                                End If
                                If Objreader.LocalName = "Team1Local" Then
                                    Team1CountrieBox.SelectedIndex = Convert.ToInt32(Objreader.ReadElementString("Team1Local"))
                                End If
                            ElseIf Settings.TeamInfo.SelectedIndex = 1 Then
                                If Objreader.LocalName = "Team2Name" Then
                                    Team2Name.Text = Objreader.ReadElementString("Team2Name")
                                End If
                                If Objreader.LocalName = "Team2Local" Then
                                    Team2CountrieBox.SelectedIndex = Convert.ToInt32(Objreader.ReadElementString("Team2Local"))
                                End If
                            Else
                                If Objreader.LocalName = "Team1Name" Then
                                    Team1Name.Text = Objreader.ReadElementString("Team1Name")
                                End If
                                If Objreader.LocalName = "Team1Local" Then
                                    Team1CountrieBox.SelectedIndex = Convert.ToInt32(Objreader.ReadElementString("Team1Local"))
                                End If
                                If Objreader.LocalName = "Team2Name" Then
                                    Team2Name.Text = Objreader.ReadElementString("Team2Name")
                                End If
                                If Objreader.LocalName = "Team2Local" Then
                                    Team2CountrieBox.SelectedIndex = Convert.ToInt32(Objreader.ReadElementString("Team2Local"))
                                End If
                            End If
                            If Objreader.LocalName = "GameType" Then
                                GameTypeCombobox.SelectedIndex = Convert.ToInt32(Objreader.ReadElementString("GameType"))
                            End If
                            If Objreader.LocalName = "GameMode" Then
                                Dim whatmode = Objreader.ReadElementString("GameMode")
                                If whatmode = "1.6" Then
                                    RadioButton1.Checked = True
                                ElseIf whatmode = "DoD" Then
                                    RadioButton2.Checked = True
                                ElseIf whatmode = "NS" Then
                                    RadioButton3.Checked = True
                                ElseIf whatmode = "CZ" Then
                                    RadioButton4.Checked = True
                                ElseIf whatmode = "Source" Then
                                    RadioButton5.Checked = True
                                End If
                            End If
                            If Settings.SaveServerInfo.Checked = True Then
                                If Objreader.LocalName = "IpPort" Then
                                    tbIPandPort.Text = Objreader.ReadElementString("IpPort")
                                End If
                                If Objreader.LocalName = "ServerPassword" Then
                                    ServerPW.Text = Encryption_and_other_classes.TripleDES(Objreader.ReadElementString("ServerPassword"), "serverthing", False)
                                End If
                                If Objreader.LocalName = "Delay" Then
                                    DelayBox.SelectedIndex = Convert.ToInt32(Objreader.ReadElementString("Delay"))
                                End If
                                If Objreader.LocalName = "ServerLocation" Then
                                    ServerLocation.SelectedIndex = Convert.ToInt32(Objreader.ReadElementString("ServerLocation"))
                                End If
                            End If
                        End While
                        Objreader.Close()
                    Else
                        MsgBox("Something in the xml has been changed!", MsgBoxStyle.Critical)
                    End If
                Catch fileException As Exception
                    MsgBox(fileException.ToString)
                End Try
            End If
        End If
    End Sub

Pronto... isto era o k tava no post... eu peço desculpa pela minha ignorancia neste ponto lol... mx od é keu meto isto? tenho d criar uma nova tabela na bd para isto?

sorry ?

[slack_guy]

Esse ficheiro, a menos que eu esteja a ver muuuito mal, não tem nada que ver com SAFT-PT.

Se não fazes puto de ideia do que é o SAFT-PT, o melhor é começares por aqui: http://www.assoft.pt/saft%2Dpt/

a minha ideia era criar uma área no meu software k enviaxe sms atraves dexe software

... aproveita a embalagem e cria uma área que converta pitês para português.

[Elek]

ajudem-m  😄