fantasticswallow

using System;
using System.Net;
using Microsoft.Phone.Reactive;
using Codeplex.OAuth;

namespace TestPhoneApp1
{
	public class TwitterConnectionCS
	{
		public delegate void resultTextCollection(string resTxt);

fantasticswallow

Module Module1

    Sub Main()
        For i As Integer = 1 To 1000
            Dim tagint As Integer = NumberGenerater.GetInteger(Integer.MaxValue)
            Console.WriteLine(tagint.ToString + " : " + GetFizzBuzzStr(tagint.ToString))
            Threading.Thread.Sleep(1000)
        Next
    End Sub

fantasticswallow

#include <stdio.h>
#include <ctype.h>
#include <string.h>

char charAddition(char ref, int num);
int charValid(char ref);
int charContains(char tag,char ref[]);

void main()
{

fantasticswallow

// 全ての艦名。手を加えてフィルタに使用する
(長門|陸奥|伊勢|日向|雪風|赤城|加賀|蒼龍|飛龍|島風|吹雪|白雪|初雪|深雪|叢雲|磯波|綾波|敷波|大井|北上|金剛|比叡|榛名|霧島|鳳翔|扶桑|山城|天龍|龍田|龍驤|睦月|如月|皐月|文月|長月|菊月|三日月|望月|球磨|多摩|木曾|長良|五十鈴|名取|由良|川内|神通|那珂|千歳|千代田|最上|古鷹|加古|青葉|妙高|那智|足柄|羽黒|高雄|愛宕|摩耶|鳥海|利根|筑摩|飛鷹|隼鷹|朧|曙|漣|潮|暁|響|雷|電|初春|子日|若葉|初霜|白露|時雨|村雨|夕立|五月雨|涼風|朝潮|大潮|満潮|霰|霞|陽炎|不知火|黒潮|祥鳳|翔鶴|瑞鶴|鬼怒|阿武隈|夕張|瑞鳳|三隈|舞風|衣笠|鈴谷|熊野|伊168|伊58|大和|秋雲|夕雲|巻雲|長波|武蔵|大鳳|伊19|伊8|阿賀野|能代|矢矧|Верный|ヴェールヌイ|ヴェルヌーイ|伊401|まるゆ|あきつ丸|イオナ|タカオ|ハルナ|弥生|卯月|Bismarck|ビスマルク|レーベレヒト・マース|マックス・シュルツ|Z1|Z3|天津風|谷風|酒匂|明石)

// 艦名+一部キーワード
(長門|陸奥|伊勢|日向|雪風|赤城|加賀|蒼龍|飛龍|島風|吹雪|白雪|初雪|深雪|叢雲|磯波|綾波|敷波|大井|北上|金剛|比叡|榛名|霧島|鳳翔|扶桑|山城|天龍|龍田|龍驤|睦月|如月|皐月|文月|長月|菊月|三日月|望月|球磨|多摩|木曾|長良|五十鈴|名取|由良|川内|神通|那珂|千歳|千代田|最上|古鷹|加古|青葉|妙高|那智|足柄|羽黒|高雄|愛宕|摩耶|鳥海|利根|筑摩|飛鷹|隼鷹|朧|曙|漣|潮|暁|響|雷|電|初春|子日|若葉|初霜|白露|時雨|村雨|夕立|五月雨|涼風|朝潮|大潮|満潮|霰|霞|陽炎|不知火|黒潮|祥鳳|翔鶴|瑞鶴|鬼怒|阿武隈|夕張|瑞鳳|三隈|舞風|衣笠|鈴谷|熊野|伊168|イムヤ|伊58|ゴーヤ|大和|秋雲|夕雲|巻雲|長波|武蔵|大鳳|伊19|伊8|阿賀野|能代|矢矧|Верный|ヴェールヌイ|ヴェルヌーイ|伊401|まるゆ|あきつ丸|イオナ|タカオ|ハルナ|弥生|卯月|Bismarck|ビスマルク|レーベレヒト・マース|マックス・シュルツ|Z1|Z3|天津風|谷風|酒匂|明石)(ちゃん|さん|(かわい|可愛)い|きた|(落ち|出|来)(ない|た|ね|る)|ドロップ|改|型

fantasticswallow

Public Async Function PostMediaAsync(uri As String, param As Dictionary(Of String, String), fileName As String, media As Byte()) As Task(Of HttpResponseMessage)
    Using cli As New HttpClient
        cli.Timeout = TimeSpan.FromSeconds(Timeout)
        If param Is Nothing Then param = New Dictionary(Of String, String)
        Dim boud = System.Environment.TickCount.ToString
        Dim content As New MultipartFormDataContent("--" + boud)
        For Each x In param
            content.Add(New StringContent(x.Value), """" + x.Key + """")
        Next
        Dim binary = New ByteArrayContent(media)

fantasticswallow

using System;
using System.Collections;
using System.Collections.Generic;
using System.Collections.Specialized;
using System.ComponentModel;

namespace BindingSampleApp
{
    public class ExtendObservableCollection<T> : IList, IList<T>, INotifyCollectionChanged, INotifyPropertyChanged
    {

fantasticswallow

Imports System.Diagnostics
Imports System.Runtime.InteropServices

Public Class ThisAddIn

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        If System.Windows.Forms.Screen.AllScreens.Length > 1 Then
            If System.Windows.Forms.Screen.AllScreens.Any(Function(x) x.Bounds.X > 0 OrElse x.Bounds.Y > 0) Then
                isExtendedBefore = True
            End If

fantasticswallow

Imports System.Windows.Forms
Imports Microsoft.Office.Interop.Excel

Public Class ThisAddIn

    Private Sub ThisAddIn_Startup() Handles Me.Startup
        'AddHandler Application.WorkbookOpen, AddressOf Application_WorkbookOpen
        AddHandler Application.WorkbookOpen, wbWorkbookOpenSub2
    End Sub

fantasticswallow

!!! 東方紺珠伝IME登録用（Ver0.5c）
!!! このファイルには致命的なネタバレなどを含みます。使用したことによるいかなる事態に対しても作者は責任を負いません
!!! This File is written by fantasticswallow(@f_swallow). You can use this file, and marge any file.
!!! ver0.3a 製品版一部対応。
!!! ver0.5a Hard対応完了。；ver0.5c Extraの曲名の説明部分が他と違っていたので修正

!!!全般
かんじゅでん	紺珠伝	名詞	東方第15作目
とうほうかんじゅでん	東方紺珠伝	名詞	東方第15作目
とうほうかんじゅでん	東方紺珠伝　～ Legacy of Lunatic Kingdom.	名詞	東方第15作目

fantasticswallow

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Xml.Linq;
using Excel = Microsoft.Office.Interop.Excel;
using Office = Microsoft.Office.Core;
using Microsoft.Office.Tools.Excel;

namespace ExcelAddIn1